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ABSTRACT 


A  computer  program  has  been  developed  for  predicting  twin- nozzle/aftbody 
drag  and  internal  nozzle  performance  for  fighter  type  aircraft  having  twin 
buried  engines  and  dual  nozzles.  The  program  is  capable  of  generating  the 
installed  thrust -minus -drag  data  required  for  conducting  mission  analysis 
studies  of  aircraft  of  this  type.  The  configuration  variables  which  can  be 
analyzed  include  (l)  nozzle  type  (convergent  flap  and  iris,  convergent- 
divergent  with  and  without  secondary  flow,  and  shrouded  and  unshrouded  plug), 
(2)  nozzle  lateral  spacing,  (3)  interfairing  type  (horizontal  and  vertical 
wedge),  (4)  interfairing  length,  and  (5)  vertical  stabilizer  type  (single  and 
twin). 

The  performance  prediction  methods  incorporated  in  the  program  are  based 
almost  entirely  on  empirical  correlations.  Specifically,  correlations  used 
in  conjunction  with  one-dimensional  flow  relationships  are  employed  for  the 
prediction  of  the  nozzle  thrust  and  discharge  coefficients,  and  correlations 
of  the  test  data  obtained  during  the  contracted  effort  are  employed  for 
prediction  of  the  aft-end  drag.  The  prediction  methods  account  for  the 
effects  of  nozzle  pressure  ratio  and  flow  separation  on  both  internal  and 
external  nozzle  surfaces. 

This  manual  describes  the  operation  of  the  computer  program  in  terms  of 
program  input  requirements,  performance  prediction  methods,  and  output  for¬ 
mat  and  includes  a  presentation  of  sample  input/output  cases  and  a  complete 
computer  listing  of  the  program.  The  program  has  been  developed  for  use  on 
the  CDC  6600  computer. 
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SECTION  1 
INTRODUCTION 


This  manual  presents  a  detailed  description  of  the  Twin-Nozzle/Aftbody  Drag 
and  Internal  Nozzle  Performance  Computer  Program.  This  program  was  developed 
under  Contract  F33657-70-C-0511,  Program  for  Experimental  and  Analytical 
Determination  of  Integrated  Airframe- Nozzle  Performance. 

The  purpose  of  this  manual  is  to  describe  in  detail  the  capabilities  and 
limitations  of  the  program,  the  numerical  methods  used,  and  the  operational 
procedures  required  to  run  the  program.  The  computational  procedures  are 
presented  both  in  the  form  of  detailed  descriptions  and  flow  charts  summariz¬ 
ing  the  methods.  The  input  instructions  consist  of  a  description  of  each 
input  required  and  how  the  input  is  to  be  implemented.  The  output  section 
consists  of  a  description  of  the  output  format  and  an  explanation  of  error 
messages  that  are  included.  Finally,  a  description  of  the  operational  setup 
needed  for  program  execution  is  provided  including  control  cards,  deck 
assembly  instructions,  and  necessary  external  routines. 

The  capabilities  and  restrictions  of  the  program  including  a  flow-chart  are 
presented  in  Section  2.  The  computational  methods  used  to  predict  aft-end 
drag  and  internal  nozzle  performance  are  discussed  in  Section  3;  and  the 
operating  instructions,  consisting  of  user  and  programmer  inputs  and  the 
output  summary,  are  included  in  Section  4,  Sample  cases  including  examples 
of  input  coding  sheets  and  a  complete  listing  of  the  program  are  provided 
in  appendixes . 
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SECTION  2 


COMPUTER  PROGRAM  CAPABILITIES 


2.1  GENERAL  DESCRIPTION  OF  PROGRAM 

The  program  consists  of  a  main  control  routine,  three  nozzle  internal 
performance  subroutines,  and  an  aft-end  drag  subroutine.  The  prediction 
methods  incorporated  in  these  subroutines  are  based  almost  entirely  on 
empirical  correlations.  Specifically,  correlations  developed  by  B&WA 
(Reference  Ll)  are  employed  for  prediction  of  nozzle  thrust  and  dishcarge 
coefficients,  and  correlations  of  Phase  II  test  data  are  employed  for  pre¬ 
diction  of  twin-nozzle/aftbody  drag.  The  predicted  aft-end  drags  for  a 
subsonic  external  flow  must  be  used  with  caution  if  the  user  employs  the 
aftbody  maximum  area  station  as  the  reference  station  for  drag  accounting 
since  the  aftbody  metric  break  station  of  the  Phase  II  model  lies  downstream 
of  the  maximum  area  station.  Using  the  maximum  area  station  as  a  reference 
station  requires  in  some  cases  a  procedure  for  obtaining  the  drag  acting  on 
the  body  between  the  maximum  area  and  metric  break  stations.  This  drag 
increment  is  very  small  for  subsonic  external  flow  and  may  be  neglected. 

For  supersonic  external  flow,  a  procedure  for  obtaining  this  drag  increment 
was  developed  and  incorporated  in  the  aft-end  drag  routine  to  predict  the 
boattail  drag  aft  of  the  maximum  area  station.  The  components  of  the  aft- 
end  drag  include  boattail  pressure  and  friction  drags  and  annular  base  drag. 

Since  the  empirical  correlations  are  based  on  Phase  II  data  and  little  data 
was  obtained  in  the  0.9  to  1.2  Mach  number  range,  the  predicted  aft-end  drags 
for  this  Mach  regime  should  also  be  used  with  caution. 

The  program  will  analyze  the  following  five  types  of  nozzles:  convergent, 
convergent-divergent,  convergent -divergent  ejector,  unshrouded  plug,  and 
shrouded  plug.  The  nozzle  routines  yield  values  of  thrust  and  discharge 
coefficients,  as  well  as  pumping  characteristics  for  ejector  nozzles. 

There  are  basically  two  types  of  input  to  the  program:  fixed  and  variable. 
The  fixed  inputs  are  constant  for  a  given  series  of  cases  and  consist  of 
geometrical  inputs  such  as  nozzle  type  and  maximum  area.  The  variable  inputs 
may  change  from  case  to  case  and  consist  of  geometrical  inputs,  such  as 
nozzle  area  ratio,  and  operating  conditions  such  as  freestream  Mach  number 
and  nozzle  pressure  ratio.  For  most  of  the  variable  inputs,  the  user  has  the 
option  of  using  direct  input  values  or  having  the  program  read  a  curve. 

2.2  CCMPUTER  PROGRAM  LOGIC 

The  overall  logic  of  the  program  is  illustrated  by  the  flow  charts  shown  in 
Figure  1.  The  program  consists  of  a  main  control  routine,  three  internal 
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performance  subroutines,  and  an  aft-end  drag  subroutine.  Upon  reading  and 
processing  of  the  input  the  appropriate  internal  flow  routine  is  selected 
based  on  the  nozzle  type.  Convergent  and  convergent-divergent  nozzle  cases 
are  analyzed  using  subroutine  NOZZLE,  convergent-divergent  ejector  cases 
use  subroutine  EJECTR,  and  plug  nozzle  cases  use  subroutine  NOZPLG.  When  runn¬ 
ing  convergent-divergent,  convergent-divergent  ejector  and  shrouded  plug  nozzles, 
the  user  has  the  option  of  varying  the  nozzle  internal  expansion  ratio  between 
two  input  limiting  values  in  order  to  obtain  the  maximum  thrust-minus-drag 
for  a  given  throat  area.  In  all  cases,  the  user  has  the  option  of  providing 
either  the  physical  throat  area  or  the  flow  area  at  the  throat.  The  area 
which  is  not  specified  as  the  input  is  obtained  from  the  other  area  and  the 
nozzle  discharge  coefficient. 

The  nozzle  performance  subroutines  can  analyze  various  internal  flow  regimes 
depending  on  the  nozzle  type.  For  convergent  nozzles,  separate  prediction 
methods  are  employed  when  the  throat  flow  is  subsonic,  the  throat  flow  is 
critical  but  not  choked  (nozzle  pressure  ratio  where  the  discharge  coeffi¬ 
cient  is  invariant  with  nozzle  pressure  ratio),  and  the  flow  is  critical  and 
choked.  For  convergent-divergent  and  convergent-divergent  ejector  nozzles, 
separate  prediction  methods  are  employed  when  the  flow  is  subsonic  throughout 
the  nozzle,  the  flow  is  critical  with  separation  occuring  in  the  divergent 
section,  and  the  flow  is  critical  with  no  internal  flow  separation.  Thrust 
and  discharge  coefficients  for  these  nozzles  are  computed  using  one¬ 
dimensional  flow  relationships  combined  with  empirical  correction  factors. 

The  one -dimensional  compound  flow  analysis  of  Bernstein  (Reference  45)  is 
employed  for  predicting  ejector  pumping  characteristics. 

The  method  employed  for  computing  plug  nozzle  thrust  coefficients  depends  on 
the  freestream  Mach  number.  Specifically,  for  a  subsonic  external  flow, 
correlations  involving  plug  pressure  forces  are  employed  which,  when  combined 
with  the  gross  thrust  at  the  nozzle  exit,  yield  plug  nozzle  thrust  coeffi¬ 
cients.  For  a  supersonic  freestream  Mach  number,  plug  surface  pressure  forces 
are  computed  using  an  approximate  construction  of  the  expansion  fan  generated 
by  the  flow  e;xpansion  around  the  cowl  lip.  The  plug  base  pressure  correlation 
is  also  employed  for  the  supersonic  case.  Plug  nozzle  discharge  coefficients 
are  computed  using  correlations  of  Phase  I  test  data. 

The  aft-end  drag  subroutine  calculates  the  three  components  of  the  total  aft- 
end  drag  of  the  aircraft:  boattail  pressure  drag,  boattail  friction  drag, 
and  annular  base  drag.  The  routine  tests  the  flight  speed  to  determine 
whether  to  call  the  subsonic  or  supersonic  boattail  and  base  drag  methods. 

Three  separate  correlations  are  employed  for  predicting  the  boattail  pressure 
drag  for  a  subsonic  external  flow:  jet-off  drag  correlations,  correlations 
of  the  drag  increment  from  jet-off  to  the  nozzle  design  pressure  ratio,  and 
correlations  of  the  drag  increment  from  the  design  pressure  ratio  to  operation 
at  a  higher  pressure  ratio.  The  first  two  correlations  are  based  on  nozzle/ 
aftbody  geometry  while  the  last  correlation  is  based  on  nozzle  underexpansion 
losses.  For  supersonic  external  flow,  jet-off  drag  correlations  and  correla¬ 
tions  of  the  drag  increment  from  jet-off  to  the  operating  pressure  ratio  are 
employed. 
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SECTION  3 


DISCUSSION  OF  METHODS 


This  section  describes  the  methods  employed  for  predicting  twin-nozzle/aft- 
body  drag  and  internal  nozzle  performance.  The  external  drag  methods  consist 
primarily  of  the  empirical  correlations  whose  development  is  described  in 
Volume  I  of  this  report  (Reference  89).  The  nozzle  internal  performance 
methods  are  basically  those  developed  by  P&WA  which  are  described  in 
Reference  Ul . 

3.1  TWIN-NOZZLE/AFTBODY  DRAG 

The  computational  methods  employed  for  predicting  boattail  pressure  and  friction 
drags  and  annular  base  drag  are  presented  in  this  subsection.  All  methods  are 
based  on  empirical  correlations  of  wind  tunnel  data  and,  except  for  the 
friction  drag  routine,  are  different  for  subsonic  and  supersonic  speeds. 

3.1.1  Boattail  Pressure  Drag 

3. 1.1.1  Subsonic  Flow 

This  subsection  present  the  methods  for  predicting  the  boattail  drag  aft  of 
the  metric  break  station  for  Mach  numbers  less  than  1.0.  The  boattail  drag 
coefficient  relerenced  to  the  cross-sectional  area  at  the  metric  break  station 
(Amb)  Is  computed  from  the  following  empirical  correlation  of  the  Phase  II 
data. 


(1) 


(2) 

(3) 


(4) 


PAG*  BUMC-NOT  FUMED** 


Ap  is  the  projected  boatt  ail  frontal  area,  (Amb  -  Ag),  As  is  the  shroud  area  for 
both  nozzles  (sum  of  jet  and  base  areas)  and  is  the  ideal  thrust  of  the 
twin  jet  model  obtained  by  isentropic  expansion  of  the  exhaust  flow  to  free- 
stream  pressure.  The  first  term  in  Equation  1  is  the  jet-off  drag,  the  second 
term  is  the  drag  increment  when  going  from  jet-off  to  operation  at  the  nozzle 
design  pressure  ratio  and  the  third  term  represents  the  drag  increment  when 
going  from  design  pressure  ratio  operation  to  operation  at  a  higher  pressure 
ratio.  The  design  pressure  ratio  for  convergent  and  convergent-divergent 
nozzles  is  defined  as  that  pressure  ratio  associated  with  a  cylindrical  plume 
(static  operation)  and  with  critical  throat  flow.  For  unshrouded  plug  nozzles, 
the  design  pressure  ratio  is  set  equal  to  the  design  pressure  ratio  of  a 
convergent  nozzle. 

*\ 

The  jet-off  drag  coefficient  parameter,  Kj ,  is  presented  in  Figures  2  through 
It  for  the  narrow,  intermediate,  and  wide  nozzle  lateral  spacings  with  horizon¬ 
tal  interfairings  and  a  single  vertical  tail.  The  drag  parameter  is  obtained 
from  these  figures  through  use  of  the  integral  mean  slope  (IMS)  of  the 
equivalent  body  of  revolution  and  the  shroud  to  metric  break  area  ratio 
(Ag/A^g).  The  correlation  results  shown  in  Figures  2  through  t  are  applicable 
for  all  nozzle  configurations  except  the  narrow- spaced  normal-power  convergent - 
flap  configuration.  Correlation  results  for  this  configuration  are  presented 
in  Figure  5.  Correlation  results  for  narrow  spaced  configurations  with 
vertical  interfairings  are  presented  in  Figure  6.  Figure  7  presents  correla¬ 
tion  results  for  wide  spaced  configurations  with  twin  vertical  tails.  A 
linear  interpolation  and  extrapolation  for  area  ratios  other  than  those  pre¬ 
sented  in  the  figures  is  employed. 

The  drag  parameter,  K;?,  for  determining  the  increment  in  drag  when  going 
from  jet-off  to  jet-on  at  the  nozzle  design  pressure  ratio  is  presented  in 
Figures  8  through  10  for  narrow,  intermediate  and  wide  nozzle  lateral 
spacings  and  for  Mach  numbers  ranging  from  0.6  to  0.9.  This  drag  increment 
is  presented  in  terms  of  an  increment  in  drag  coefficient  referenced  to  the 
twin  nozzle  shroud  exit  area  (sum  of  jet  and  base  areas)  and  is  correlated 
as  a  function  of  boattail  trailing  edge  0g,  at  the  nozzle  exit.  The  results 
shown  in  the  figures  are  applicable  for  all  configurations. 

For  convergent  and  convergent-divergent  nozzle  installations,  the  drag  para¬ 
meter,  K^,  which  is  the  increment  in  drag  when  going  from  design  pressure 
ratio  operation  to  operation  at  a  higher  pressure  ratio,  is  presented  in 
Figures  11  through  13  as  a  function  of  the  nozzle  underexpansion  less.  The 
drag  increment,  which  is  normalized  by  the  ideal  thrust,  is  dependent  on  both 
the  Mach  number  and  shroud  exit  to  metric  break  area  ratio.  Figure  lh  and 
15  present  the  drag  parameter,  Kg,  for  the  normal  and  maximum  A/B  plug  nozzles, 
respectively.  The  drag  parameter  in  these  figures  is  presented  as  a  function 
of  a  reference  convergent  nozzle  underexpansion  loss. 

3. 1.1. 2  Supersonic  Flow 

This  subsection  presents  the  methods  for  predicting  the  boattail  drag  aft 
of  the  maximum  area  (exclusive  of  wing)  station  for  Mach  numbers  greater  than 
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(Moo/  IMS)  -  DRAG  COEFFICIENT  PARAMETER 


(Moo  2  -1)  /  (Moo2  IMS)  2/3  -  SIMILARITY  PARAMETER 


Figure  2.  Transonic  Similarity  Correlation  of  Jet-Off 


Total  Boattail  Drag  -  Narrow  Spacing 


(Moo2  -1)/  (Moo2  IMS)  2/3  .  SIMILARITY  PARAMETER 

Figure  3.  Transonic  Similarity  Correlation  of  Jet-Off  Total 
Boattail  Drag  -  Intermediate  Spacing 
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(Moe/  IMS)  -  DRAG  COEFFICIENT  PARAMETER 


0.3 


(Moc2  -1)/  (Moo2  IMS)  -  SIMILARITY  PARAMETER 


Figure  h.  Transonic  Similarity  Correlation  of  Jet-Off 


-2  -1  0 

(Moo2  -1)/  (Moo2  IMS)  -  SIMILARITY  PARAMETER 

Figure  5.  Transonic  Similarity  Correlation  of  Jet -Off 
Total  Boattail  Drag  -  Narrow  Spacing  - 
Convergent  Flap  Nozzle 
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LU 


0  Figure  6.  Transonic  Similarity  Correlation  of  Jet-Off 


-2  -1  0 

(Moo2  -1)/  (Moo2  IMS)  2/3  -  SIMILARITY  PARAMETER 

Figure  7.  Transonic  Similarity  Correlation  of  Jet-Off 
Total  Boattail  Drag  -  Twin  Vertical  Tails 
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JET-OFF  TO  JET-ON  DRAG  INCREMENT 


0.1 


0  4  8  12  16  20  24  28 


0£  -  BO  ATT  AIL  ANGLE  -  DEGREES 


Figure  8  .  Correlation  of  Drag  Increment  From  Jet -Off  To 


0  4  8  12  16  20  24  28 


0  E  -  BOATTAIL  ANGLE  DEGREES 

Figure  9.  Correlation  of  Drag  Increment  From  Jet-Off  To 
Design  Pressure  Ratio  -  Intermediate  Spacing 
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Figure  10.  Correlation  of  Drag  Increment  From  Jet -Off  To 
Design  Pressure  Ratio  -  Wide  Spacing 


(I  -  CT)  -  NOZZLE  UNDEREXPANSION  LOSS 

Figure  11.  Correlation  of  Drag  Increment  From  Design  To 

Operating  Pressure  Ratio  -  Convergent-Divergent 
Nozzle 
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0.01 


0  0.01  0.02  0.03  0.04  0.05 

(I  -  C.)  -  NOZZLE  UNDEREXPANSION  LOSS 


Figure  12.  Correlation  of  Drag  Increment  From 
Design  to  Operating  Pressure  Ratio 
-  Convergent-Flap  Nozzle 


0  0.01  0.02  0.03  0.04  0.05 

(I  -  Cj)  -  NOZZLE  UNDEREXPANSION  LOSS 

Figure  13.  Correlation  of  Drag  Increment  From  Design 
to  Operating  Pressure  Ratio  -  Convergent- 
Iris  Nozzle 
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DRAG  INCREMENT 


MACH  NUMBER 


(I  -  Cj.)  -  NOZZLE  UNDEREXPANSION  LOSS 

Figure  lit.  Correlation  of  Drag  Increment  From 
Design  to  Operating  Pressure  Ratio 
Normal  Power  Plug  Nozzle 


MACH  NUMBER 


0.03  0.04 

(I  -  Cy)  -  NOZZLE  UNDEREXPANSION  LOSS 

Figure  15.  Correlation  of  Drag  Increment  From 
Design  to  Operating  Pressure  Ratio 
Maximum  A/B  Power  Plug  Nozzle 


0.05 


1.0.  Boattail  drag  coefficients,  based  on  maximum  area,  for  a  supersonic 
external  flow  are  computed  from  the  following  equation 


where  the  first  term  is  the  jet-off  drag  and  the  second  term  is  the  increment 
in  drag  when  going  from  jet-off  to  jet-on  operations. 

The  equivalent  body  drag  is  obtained  by  entering  the  rnethod-of-characteristics 
boattail  drag  correlation  curves  presented  in  Figure  16  with  the  Mach  number 
and  IMS.  The  ratio  of  jet-off  drag  to  equivalent  body  drag  (Un  /6_^  )  is 

PT  EB 

obtained  from  the  correlation  results  presented  in  Figure  17  as  a  function  of 
Mach  number  and  vertical  stabilizer  tape. 

For  jet-on  operation,  Ki^,  which  is  the  increment  in  drag  from  jet-off 
operation  normalized  by  the  product  of  the  difference  between  the  nozzle 
internal  exit  pressure  and  the  local  boattail  surface  pressure  (assuming 
no  flow  separation),  is  obtained  from  Figure  18  as  a  function  of  nozzle  mean 
boattail  angle.  The  mean  boattail  angle  used  is  the  mean  angle  over  a 
distance  corresponding  to  one-third  of  the  nozzle  exit  radius.  This  length 
was  selected  as  being  representative  of  the  flow  separation  length.  The  local 
boattail  flow  properties  are  obtained  from  a  method-of-characteristics 
solution  (a  large  mesh  size  was  employed  to  minimize  computer  time). 

The  correlation  results  presented  in  Figure  18  are  restricted  to  pressure 
coefficients  (P  -  PT)/q  greater  than  1.4.  This  pressure  coefficient  value 

was  based  on  the  empirical  observation  that  little  or  no  separation  occurs 
for  lower  values.  The  results  are  also  not  applicable  for  Mach  numbers 
greater  than  1.6;  a  linear  variation  of  with  Mach  number  from  the  Mach 
1.6  value  to  a  value  of  zero  at  a  Mach  number  of  2.0  is  recommended. 

3.1.2  Boattail  Friction  Drag 

The  required  input  for  computation  of  the  boattail  friction  drag  is  the  boat- 
tail  length  (Lgm)}  the  wetted  surface  area  (A^),  and  either  the  momentum 
thickness  (0)  at  the  start  of  the  boattail  or  an  effective  flat  plate 
length  (l^j.)  upstream  of  the  start  of  the  boattail.  With  these  inputs,  an 

average  boattail  skin  friction  coefficient  is  computed  by  use  of  Sivells- 
Payne  correlation  (Reference  12)  which,  when  combined  with  the  wetted  area, 
yields  the  friction  drag  as  discussed  below. 

With  an  input  momentum  thickness  at  the  start  of  the  boattail  the  reference 
length  Reynolds  number,  R^  ,  is  obtained  by  iterative  solution  of  the 
following  equation  1 
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0.36 


SHROUD  EXIT  TO  MAX. 

AREA  RATIO 


Figure  l6.  IMS/Supersonic  Similarity  Correlation  Of 

Method-Of -Characteristics  Boattail  Pressure 
Drag 
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JET -OFF  TO  JET-ON  DRAG  INCREMENT 


(6) 


Re  _  (0.044  R  *  )/(Login  R  *  -  1.5)2 

0  "  1  1  61 


reference  tempera 

(7) 

(8) 

If  an  effective  flat  plate  length  upstream  of  the  boattail  is  input,  the 
reference  Reynolds  number  is  obtained  from  the  following  equation: 

R  '  =  P1  Uco  Leff  (9) 

el  12il5 

The  local  skin  friction  correlation  equation  taken  from  Reference  12  is 


where  the  primed  quantities  denote  values  evaluated  at  the 
ture,  ,  which  is  obtained  from  the  following  equation 


T '  =  T 

1  1 


1  +  0.035 


vL  + 


/ T 

\ 

1  aw 

-ll 

\  “1 

/ 

where 


T  =  T, 
aw  1 


1. 


0  +  |v-lj  |o.89 j  M2* 


0.088  (Log10  Re^  -  2.3686) 

dogiQ  -  1.5)  3 


(10) 


The  local  skin  friction  coefficient  at  the  end  of  the  boattail  is  computed  in 
a  manner  similar  to  that  described  above  except  that  the  length  employed  in 
the  computation  of  the  reference  length  Reynolds  number  is 


L2  Leff  +  LBT 


(11) 


If  the  momentum  thickness  Reynolds  number  is  input,  the  effective  flat  plate 
length  at  the  start  of  the  boattail  is  computed  as  follows: 


eff  = 


12  g  Rej_ 


(12) 


The  skin  friction  drag  coefficient  based  on  maximum  area  is 


<cfl  +  V 

2  AM 


(13) 
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3.1.3  Annular  Base  Drag 


The  annular  base  pressure  for  a  subsonic  external  flow  is  computed  from  the 
following  modification  (developed  in  Reference  89)  of  the  Brazz el -Henderson 
base  pressure  correlation  (Reference  33). 


p  0.9  ♦  0.0167  (^f:  (14) 

_i._ - 

P*  “  0.94  +  0.06  (Ag/Ajj) 

where  R^  is  the  nozzle  exit  to  free  stream  momentum  ratio,  defined  as 

R  _  (MV)e  _  Ve  Pe  Ae  Me  (15) 

^  (MV)^ 

For  a  supersonic  external  flow,  the  following  base  pressure  correlation 
developed  by  Brazzel-Henderson  is  also  employed. 


fT;l[  hi  ,  1  fo.19  + 1. 

I1!]  [0.5  ♦  3.o  as/Am|  [. 

I©  •&) 
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+  0.047  (5 -Moo) 


(16) 


The  first  term  on  the  right  side  of  Equation  (l6)  normalizes  the  jel  tempera¬ 
ture  to  the  jet  temperature  of  a  sor.ic  nozzle.  The  second  term  corrects  for 
boattail  effects,  and  the  third  term  is  a  correlation  based  on  the  ratio  of 
nozzle  exit  momentum  flux  to  freestream  momentum  flux.  A  nozzle  position 
(relative  to  the  end  of  the  boattail)  correction  is  obtained  by  the  fourth 
term. 
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3.2  NOZZLE  THRUST  COEFFICIENT 


This  section  describes  the  numerical  methods  employed  for  computation  of 
nozzle  thrust  and  discharge  coefficients.  Prediction  methods  for  convergent, 
convergent-divergent,  convergent-divergent  ejector,  and  plug  nozzles  are  de¬ 
scribed.  The  thrust  coefficient  is  defined  as  the  ratio  of  actual  gross  thrust 
to  ideal  gross  thrust  based  on  isentropic  expansion  of  the  actual  mass  flow  to 
freestream  prerzure.  The  discharge  coefficient  is  defined  as  the  ratio  of 
actual  m8<3£,  flow  to  ideal  mass  flow  computed  assuming  one -dimensional  sonic 
flow  at  the  nozzle  throat. 


3.2.1  Convergent  Nozzles 


Convergent  nozzle  thrust  coefficients  are  computed  by  use  of  the  following 
equation, 

Ip  A  1  / .  A 

ST  A* -  (1  +  VMe  >  + 


CI  = 


L  T 


P  '  /A  Ae„n  \ 
e  /  _e  flowl 

PT„  W  '  I 


PT  *T 
T 


F,  /(PT  A*) 
P  T 


(17) 


where 


(18) 


The  term  enclosed  within  the  brackets  in  Equation  17  is  the  total  momentum 
of  the  flow  at  the  nozzle  exit,  normalized  by  P  A  . 

T 


The  stream  thrust  correction  factor,  C_,  in  the  above  equation  is  assumed  to 

be  0.997.  Equation  17  differs  slightly  from  the  equation  presented  in  Refer¬ 
ence  1*1  with  the  addition  of  the  second  term  within  the  brackets.  This  term 
represents  the  pressure  force  (normalized  by  F  A*)  exerted  on  the  area  in- 

iT  1 

crement  between  the  physical  and  effective  exit  flow  areas.  The  pressure, 

I 

P  ,  is  assumed  to  be  equal  to  freestream  pressure  for  nozzle  pressure  ratios 
e  ’ 

less  than  critical  (unity  throat  Mach  number  for  one-dimensional  flow).  For 
nozzle  pressure  ratios  greater  than  the  choking  pressure  ratio  (pressure  ratio 
where  the  flow  field  is  fixed  and  the  discharge  coefficient  is  independent  of 
pressure  ratio)  P'  is  assumed  equal  to  the  exit  pressure,  P  .  A  linear  var- 

iation  of  Pg  with  nozzle  pressure  ratio  is  assumed  between  the  critical  and 

choking  pressure  ratios.  The  critical  pressure  ratio,  (PT  /P0O)CRJ  and  choking 

pressure  ratio,  (P^  are  computed  from  the  following  equations. 
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(19) 


/P®^CK 


+ij  ^  "  1} 

3.5  -  Tan j  23.8063  (C  -0.95)1 
l  ^max 


(20) 


Equation  20  was  empirically  derived  (Reference  1+1 )  and  represents  the  nozzle 
pressure  ratio  at  which  the  discharge  coefficient,  ,  remains  fixed. 

aiNmax 


As  discussed  in  Reference  1+1,  the  discharge  coefficient,  CdN  ,  is  sensitive 

to  both  the  upstream  approach  angle,  a ,  and  the  nozzle  lip  radius  of  curva¬ 
ture,  R  .  Correlations  of  the  discharge  coefficient  (C,,,  )  as  a  function 

Wmax 

of  approach  angle  and  radius  of  curvature  ratio,  R^R^,,  are  presented  in 

Figures  19  and  20  respectively.  The  appropriate  discharge  coefficient, 

,  to  be  used  in  Equation  20  is  the  larger  of  the  two  values  obtained 

'max 

from  Figures  19  and  20. 


The  nozzle  discharge  coefficient  obtained  as  described  above  is,  of  course, 
the  appropriate  discharge  coefficient  for  nozzle  pressure  ratios  greater  than 
the  choking  pressure  ratio  (i.e.,  CdN  =  CdN  ).  For  nozzle  pressure  ratios 

1  max 

less  than  the  choking  pressure  ratio,  the  nozzle  discharge  coefficient,  C^, 
is  determined  from  the  following  equation: 


CdN  "  CdN  "  C2 
max 


\S.(rA  f+cfe.(%\ 

(F®  \P«  /  CK )  3(P®  \P® /CK 


where 


C9  =  8  B3/ 


(C 


dN 


0.965)^  +  4  B^ 


max 


and 


(21) 


(22) 


C3  =  0.0011  -  0.00205  [sin  (74.8  (c_  -  O.952) )1 

+  f(0.92  -  CdN  )  0.0574  +  ABS  ((0.92  -  C  )  .0574)1  /2 

1  max  mnv  -I 


(23) 


max 


The  constant,  B,  is  set  equal  to  0.01.  The  above  equations  are  empirically 
derived  in  Reference  1*1. 
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a  -  INTERNAL  APPROACH  ANGLE  -  DEGREES 

Figure  19.  Correlation  of  Maximum  Discharge  Coefficient  with 
Internal  Approach  Angle 


uj  0.96 


1  0.92 


RC/ Rt  " SHR0UD  L,p  T0  THR0AT  radius  ratio 

Figure  20.  Correlation  of  Maximum  Discharge  Coefficient  with 
Shroud  Lip  Curvature 


The  area  ratios  employed  in  the  thrust  coefficient  equation  (Equation  17) 
are  obtained  as  follows.  For  nozzle  pressure  ratios  less  than  critical,  the 
ratio  of  actual  to  sonic  flow  areas  (A  /A*)  is  obtained  in  the  usual  man- 

eflow 

ner  from  the  exit  Mach  number,  Mg.  For  nozzle  pressure  ratios  greater  than 

critical,  the  actual  sonic  flow  area  ratio  is  unity.  The  physical  exit  to 
sonic  flow  area  ratio  is  obtained  from  the  following  equation  for  nozzle  pres¬ 
sure  ratios  less  than  critical. 


A  A 

e  e 

A 

eflow 

A 

1  6 flow 

Ae 

flow 

A* 

T 

CdN  *T 

(24) 


For  nozzle  pressure  ratios  greater  than  critical,  the  exit  to  sonic  flow  area 
ratio  is  equal  to  the  inverse  of  the  discharge  coefficient. 


3.2.2  Convergent-Divergent  Nozzle 

The  method  employed  for  computing  convergent-divergent  nozzle  thrust  coeffi¬ 
cients  depends  upon  whether  the  flow  is  unchoked,  choked  with  internal  flow 
separation,  or  choked  and  flowing  full  (i.e.,  no  internal  separation).  For 
nozzle  pressure  ratios  less  than  critical  (unity  throat  Mach  number  for  one¬ 
dimensional  flow),  the  flow  is  subsonic  and  the  nozzle  is  treated  as  a  sub¬ 
sonic  diffuser.  The  computational  procedure  is  as  follows.  A  throat  Mach 
number  is  first  assumed  and  a  recovery  loss  coefficient  AP^/q^,,  is  obtained 

from  Figure  21  as  a  function  of  nozzle  internal  divergence  angle,  9.  The 
nozzle  exit  to  throat  total  pressure  ratio  is  obtained  from  the  following 
equation. 
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The  throat  flow  to  sonic  flow  area  ratio  in  Equation  27  is  obtained  as  a 
function  of  the  assumed  throat  Mach  number  and  the  throat  flow  to  geometric 
throat  area  ratio  is  obtained  from  the  nozzle  discharge  coefficient  (A_  /A^ 

flow 

=  C^) .  The  discharge  coefficient  is  taken  as  the  larger  of  the  two  values 


obtained  from  Figures  19  and  20.  The  exit  to  sonic  area  ratio  obtained  from 
Equation  26  yields  an  exit  Mach  number  which  in  turn  yields  an  exit  static 
pressure.  If  the  exit  static  pressure  does  not  equal  the  freestream  static 
pressure  the  calculations  are  repeated  using  a  different  value  for  the  throat 
Mach  number.  The  thrust  coefficient  is  then  computed  from  Equation  17  with 
A  assumed  equal  to  A  .  The  stream  thrust  correction  factor  is  obtained 
6  'flow 

from  Figure  22  as  a  function  of  exit  to  sonic  flow  area  ratio  and  internal 
divergence  angle. 


For  nozzle  pressure  ratios  greater  than  critical  but  less  than  that  required 
for  the  nozzle  to  flow  full  (no  separation),  two  computational  procedures  are 
employed.  For  nozzle  pressure  ratios  slightly  greater  than  critical,  a  linear 
variation  of  thrust  coefficient  from  the  critical  value  of  thrust  coefficient 
is  assumed.  This  linear  variation  is  terminated  (based  on  empirical  observa¬ 
tion)  at  a  nozzle  pressure  ratio  computed  from  the  following  equation. 


where  PT  /P  is  obtained  (assuming  the  nozzle  flows  full)  from  one  dimensional 
iT  6 

flow  relationships  and 


The  thrust  coefficient  for  nozzle  pressure  ratios  greater  than  the  computed 
pressure  ratio  from  Equation  28,  but  less  than  that  for  the  flowing  full 
case,  is  computed  from  the  following  equation. 
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where  Pgep  is  the  static  pressure  just  upstream  of  the  separation  point, 

A  is  the  flow  area  at  the  separation  point,  M  is  the  Mach  number  at 
esep  se^ 

the  separation  point,  and  the  integral  term  is  the  pressure  force  acting  on 
the  nozzle  inner  surface  in  the  separated  flow  region.  The  stream  thrust 
parameter,  C  ,  is  obtained  from  Figure  22  as  a  function  of  A  /A*  and  0. 

S  Sep  J. 

The  surface  static  (upstream  of  separation  point)  to  total  pressure  ratio  is 
computed  from  the  following  equation. 


P  Fm 

=  0.63  +  0.04  In  (0.01)  — 

*T  *T 

aT  T 


(3D 


Equation  31  results  determine  the  Mach  number,  M  ,  which  in  turn  locates 

7  sep 

(through  the  area  ratio  function)  the  separation  point.  The  integral  term 
Equation  30  is  computed  from  the  following  empirical  equation. 


/*PdA 

J\ 
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A  A  , 
e  sep 

A*  'A* 


(32) 


When  the  nozzle  is  flowing  full,  Equation  17  is  used  for  computing  thrust 
coefficients.  The  exit  flow  area  (A  )  is,  however,  set  equal  to  the 

eflow 

physical  area  (Ae).  The  pressure  ratio  (PT  /Vm)  where  the  nozzle  is  just 

T 

flowing  full  is  computed  from  the  foil  owing  equation. 


A T  \ 

I  T) 

\  P  / 

\  A  00 


T J  _  sep 
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where  PT  /p  is  obtained  from  a  one -dimensional  flowing  full  analysis  and 
Psep/Pjo  is  a  constant  obtained  from  Equation  31  (after  rearranging). 

The  nozzle  discharge  coefficient  for  convergent -divergent  nozzles  is  defined 
as  the  ratio  of  actual  mass  flow  to  ideal  convergent  nozzle  mass  flow,  or 


N 


(m  ) 

]  C-D'  act 

(“CONV^  id 


(34) 


In  terms  of  ideal  conditions,  the  above  equation  becomes 
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(35) 


_  id  \  flow 

S  ^®C0NV^  id  \ 

where  A^,  flow/A^,  is  the  larger  of  the  two  values  obtained  from  Figures  19  and 

20.  For  pressure  ratios  greater  than  critical  for  the  reference  convergent 
nozzle,  the  ideal  mass  flow  for  the  C-D  nozzle  is  identical  to  the  ideal  mass 
flow  of  the  convergent  nozzle.  Thus,  the  discharge  coefficients  can  be  ob¬ 
tained,  as  previously  described,  from  Figures  19  and  20.  For  pressure  ratios 
less  than  critical  for  the  reference  convergent  nozzle,  the  ideal  C-D  nozzle 
mass  flow  is  greater  than  the  ideal  convergent  nozzle  mass  flow.  This  is  be¬ 
cause  the  critical  pressure  ratio  for  a  C-D  nozzle  is  lower  than  the  critical 
pressure  ratio  for  a  convergent  nozzle  due  to  the  diffusion  in  the  divergent 
section.  The  discharge  coefficient  equation  is  rewritten,  therefore,  as 


where  is  the  C-D  nozzle  throat  Mach  number  and  Mg  is  the  exit  Mach  number 
of  the  reference  convergent  nozzle. 

3.2.3  Convergent -Divergent  E.1Qctor  Nozzle 


The  computational  method  employed  for  predicting  C-D  ejector  nozzle  perform¬ 
ance  follows  closely  the  method  employed  for  C-D  nozzles.  The  primary  dif¬ 
ference  is  the  addition  of  a  routine  for  computing  the  ejector  pumping  char¬ 
acteristics.  The  method  employed  is  the  one -dimensional  compound-compressible 
flow  analysis  of  Bernstein  (Reference  45).  Bernstein's  method  is  programmed 
so  as  to  obtain  secondary  to  primary  mass  flow  ratio  as  a  function  of  secondary 
to  primary  total  pressure  ratio  and  vice  versa. 


With  the  addition  of  the  nozzle  secondary  flow,  the  nozzle  thrust  coefficient 
equation  with  no  internal  flow  separation  becomes 
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where  the  secondary  and  primary  flow  areas, Mach  numbers,  and  exit  pressure  at 
the  nozzle  exit  are  obtained  from  standard  one-dimensional  calculations  em¬ 
ploying  the  secondary  to  primary  mass  flow  ratios  and  total  pressure  ratios. 
The  stream  thrust  correction  factor,  Cg,  is  obtained  from  Figure  22  as  a 

function  of  internal  divergence  angle  and  shroud  exit  to  primary  nozzle  area 
ratio.  For  cases  with  internal  flow  separation,  the  thrust  coefficients  are 
computed  by  a  method  similar  to  that  employed  for  C-D  nozzles.  Primary  nozzle 
discharge  coefficients  are  also  computed  in  the  same  manner  as  for  C-D  nozzles. 

3.2.4  Plug  Nozzles 

The  plug  nozzle  performance  routine  is  based  on  both  analytical  and  empirical 
correlation  methods.  Specifically,  for  supersonic  flight  Mach  numbers  a  com¬ 
bined  analytical/empirical  method  is  employed,  while  an  empirical  method  is 
employed  for  subsonic  flight  Mach  numbers.  The  reason  for  this  is  that,  for 
supersonic  flight  Mach  numbers,  the  nozzle  pressure  ratio  is  sufficiently 
high  such  that  there  is  little  or  no  influence  of  the  external  flow  on  the 
plug  surface  pressure  distributions.  For  subsonic  flight  Mach  numbers,  the 
influence  of  the  external  flow  is  felt  over  a  large  portion  of  the  plug  sur¬ 
face,  especially  at  low  nozzle  pressure  ratios. 

The  method  employed  for  computing  the  plug  surface  pressure  force  and  nozzle 
thrust  coefficient  for  a  supersonic  external  flow  is  as  follows.  First,  the 
total  flow  expansion  around  the  shroud  lip  is  computed  assuming  the  flow  ex¬ 
pands  to  freestream  static  pressure.  This  flow  turning  is  divided  into  a 
number  of  equal  turning  increments.  For  the  initial  flow  angle  increment, 
the  Mach  number  at  the  shroud  lip  is  computed  using  the  Prandtl-Meyer  rela¬ 
tionship.  The  right  running  characteristic  ray  is  then  constructed  and  its 
intersection  with  the  plug  surface  computed.  For  this  computation,  the  char¬ 
acteristic  ray  is  assumed  to  be  straight.  The  plug  surface  Mach  number  at 
the  intersection  point  is  obtained  from  the  Prandtl-Meyer  relationship  as¬ 
suming  a  flow  deflection  equal  to  twice  the  flow  turning  increment  at  the 
shroud  lip.  This  procedure  accounts,  approximately,  for  the  expansion  fan 
reflection  from  the  plug  surface.  The  method  is  approximate,  since  the  actual 
characteristic  ray  is  curved  rather  than  straight,  as  assumed.  Nonetheless 
the  surface  pressure  distributions  computed  as  described  are  in  excellent 
agreement  with  exact  method-of -characteristic  calculations. 

The  above  procedure  is  repeated  until  the  flow  is  expanded  to  freestream 
pressure  or  the  end  of  the  plug  is  reached.  In  the  former  case,  where  the 
last  ray  intersects  the  surface  upstream  of  the  plug  base,  the  external  flow 
will  definitely  influence  the  plug  surface  pressure  distributions.  It  is 
assumed,  however,  that  the  region  influenced  by  the  external  flow  is  small. 

It  is  further  assumed  that  the  pressures  in  this  region  are  near  freestream 
pressure.  Based  on  empirical  observations,  the  above  assumptions  will  intro¬ 
duce  little  error  provided  the  nozzle  pressure  ratio  is  greater  than  approx¬ 
imately  4.0  and  the  plug  configuration  is  similar  to  those  tested. 
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The  nozzle  gross  thrust  is  the  sum  of  the  gross  thrust  at  the  nozzle  exit, 
the  plug  surface  pressure  force,  and  the  plug  base  force  (or  drag).  The  gross 
thrust  at  the  nozzle  exit  for  unshrouded  nozzles  is  computed  in  the  same  manner 
as  for  convergent  nozzles  and  for  shrouded  plug  nozzles  in  the  same  manner  as 
for  C-D  nozzles.  Plug  base  pressure  correlations  are  employed  for  computing 
plug  base  forces.  The  plug  base  pressure  is  computed  from  the  following  cor¬ 
relation  equation: 


Fb  _  4.312 

PT  "  1.975 

T  (PT  /Pj 

This  equation  is  applicable  for  nozzle  pressure  ratios  ranging  from  approxi¬ 
mately  4.5  to  the  pressure  ratio  where  the  ratio  of  base  pressure  to  nozzle 
total  pressure  remains  invariant  with  nozzle  pressure  ratio.  The  plug  base 
to  nozzle  total  pressure  ratio  becomes  invariant  with  pressure  ratio  when  the 
last  characteristic  ray  from  the  shroud  lip  lies  downstream  of  the  base  wake 
region. 


The  invariant  base  pressure  is  computed  from  the  following  equation: 


(39) 


where  (Pp/P_,  )  is  the  ratio  of  plug  surface  static  pressure  just  upstream  of 

the  plug  base  to  nozzle  total  pressure.  For  nozzle  pressure  ratios  less  than 
4.5,  the  base  pressure  is  assumed  equal  to  freestream  static  pressure. 


For  a  subsonic  external  flow,  the  plug  nozzle  thrust  coefficient  is  computed 
from  the  following  equa  ,ion: 

K4  (4o) 


cT  )  (4l) 

e 

CT  in  the  above  equation  is  the  ratio  of  computed  gross  thrust  at  the  nozzle 
e 

exit  to  ideal  gross  thrust  (Fid)  obtained  by  expanding  the  flow  isentropically 
to  freestream  static  pressure,  and  AD  is  the  drag  increment  between  operation 
at  the  design  pressure  ratio  and  operation  at  a  higher  pressure  ratio  and  is 
obtained  from  Figures  ll<  and  15  as  a  function  of  the  underexpansion  loss, 

(l-CT  ).  The  plug  thrust/drag  parameter,  K^,  is  obtained  through  interpola- 
e  tion  and  extrapolation  of  the  correlation  results  presented  in  Fig¬ 
ures  23  and  2k . 


where 


r  =  r  +  AS 
T  T  Fid 
e 


K4  Fid  "  (°T 
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THRUST  /  DRAG  PARAMETER  / 


SECTION  4 


OPERATING  INSTRUCTIONS 


4.1  INPUT  REQUIREMENTS 

The  input  for  the  external  drag  and  internal  nozzle  performance  computer 
program  consists  of  fixed  and  variable  parameters  in  a  main  25  card  set  plus 
optional  curve  data  and  input  routine  control  cards.  The  fixed  inputs,  which 
are  constants  for  each  computer  run,  are  discussed  in  Subsection  4.1.1.  The 
variable  inputs,  which  allow  a  series  of  values  or  curve  data  to  be  input  for 
each  run,  are  discussed  in  Subsection  4.1.2,  followed  by  a  description  of  the 
required  input  control  cards  in  Subsection  4.1.3.  The  25  card  main  input 
data  set  is  summarized  in  Table  1,  including  card  numbers,  data  descriptions 
and  locations,  available  input  options,  and  where  appropriate,  identifiers  for 
the  optional  curve  data  inputs.  Tables  2  and  3  describe  the  input  curve 
formats.  Sample  input  sheets  are.  given  in  Appendix  A. 

4.1.1  Fixed  Input 

The  fixed  input  data  required  are  the  title,  the  basic  aircraft  external 
geometric  data,  and  the  nozzle  internal  geometry  data.  The  title,  on  card  1, 
may  consist  of  any  combination  of  alpha-numeric  characters  and  may  be  placed 
anywhere  in  columns  1  through  72.  This  title  will  be  printed  at  the  top  of 
each  page  of  computer  printout.  The  first  three  inputs  on  card  2  are  input 
keys  for  selection  of  nozzle  spacing,  nozzle  type,  and  interfairing  type, 
and  have  the  options  shown  in  Table  1.  The  inputs  are  integers  (no  decimal) 
input  in  fields  of  3  columns  starting  with  column  1.  The  integer  inputs 
must  be  right-adjusted;  i.e.,  the  final  digit  must  fall  in  the  last  column 
of  the  input  field.  The  last  six  inputs  on  card  2  are  real  numbers  (input 
with  decimals)  in  fields  of  six  columns  starting  with  column  10.  These  in¬ 
puts  include  wing  area,  maximum  cross-sectional  area,  ratio  of  metric  break 
area  to  maximum  area,  the  initial  boattail  length,  initial  boattail  integral 
mean  slope  (IMSF),  and  boattail  wetted  area  for  the  portion  of  the  aftbody 
between  the  maximum  are  a  location  and  the  metric  break. 

Nozzle  internal  .fixed  inputs  are  shown  in  Table  1  under  each  nozzle  type 
heading.  The  nozzle  fixed  inputs  are  on  the  last  non-blank  card  in  the  data 
set;  however,  enough  blank  cards  must  be  added  at  the  end  of  the  set  to  make 
a  total  of  25  cards.  The  inputs  required  for  convergent  nozzles  are  the 
minimum  and  maximum  throat  areas  corresponding  to  normal  and  max  A/B  power 
settings,  input  as  real  numbers  on  the  first  two  fields  of  6  on  card  22.  For 
convergent-divergent  nozzles,  the  axial  length  of  the  nozzle  divergent  sec¬ 
tion,  the  minimum  nozzle  expansion  ratio,  and  the  maximum  nozzle  expansion 
ratio  are  input  as  real  numbers  on  card  22  in  fields  of  6  columns,  starting 
with  column  1.  The  fixed  inputs  for  the  convergent -divergent  ejector  nozzle 
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TABLE  1.  MAIN  DATA  SET  INRJT  J^EY 
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TABLE  1.  MAIN  DATA  SET  INPUT  KEY  (Continued) 
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TABLE  1.  MAIN  DATA  SET  INPUT  KEY  (Continued) 
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TABLE  1.  MAIN  DATA  SET  INPUT  KEY  (Continued) 
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TABLE  1.  MAIN  DATA  SET  INHJT  KEY  (Continued') 
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TABLE  1.  MAIN  DATA  SET  INPUT  KEY  (Continued) 
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TABLE  1.  MAIN  DATA  SET  INPUT  KEY  (Continued) 
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TABLE  2.  UNTVARIANT  CURVE  DATA  INPUT  KEY 


CARD 

COLUMNS 

MODE 

CODE 

DESCRIPTION 

1 

1-6 

Alpha -Numeric 

— 

Curve  identifier 

7-9 

Integer 

1 

Linear  interpolation 

2 

Parabolic  interpolation 

10-12 

Integer 

0 

No  extrapolation  on  X 

1 

Extrapolation  on  X 

13-15 

Integer 

— 

Number  of  X  and  Y  numbers 

2 

1-72 

Real 

-- 

Data  in  order  X,  Y,  X,  Y,  .  .  .  in 

fields  of  six  columns  each.  May 

require  several  cards 

TABLE  3.  BIVARIANT  CURVE  DATA  INPUT  KEY 


CARD 

COLUMNS 

MODE 

CODE 

DESCRIPTION 

1 

1-6 

Alpha-Numeric 

— 

Curve  identifier 

7-9 

Integer 

3 

Linear  interpolation  on  both  X  and  Z 

4 

Parabolic  interpolation  on  both  X  and  Z 

5 

Parabolic  interpolation  on  X  and  linear  on  Z 

10-12 

Integer 

-1 

Extrapolation  on  X  only 

0 

No  extrapolation 

1' 

Extrapolation  on  both  X  and  Z 

13-15 

Integer 

-- 

Number  of  Z  values  to  be  read  (may  be  up  to 

19) 

16-72 

Irr.eger 

-- 

Number  of  X  and  Y  numbers  for  each  Z,  in 
order  of  input,  in  fields  of  3  columns  each 

2 

1-72 

Real 

Data  in  order  Z,  X,  Y,  X,  Y,  .  .  Z,  X, 

Y,  .  .  .in  fields  of  six  columns  each. 

May  require  several  cards. 
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are  on  card  25  and  are  the  same  as  for  the  convergent-divergent  nozzle 
except  for  the  addition  of  the  secondary  flow  specific  heat  ratio  (real 
number)  in  columns  19  through  24.  The  plug  nozzle  fixed  inputs,  real  numbers 
in  the  first  six  fields  of  6  columns  on  card  23,  are  the  conical  plug  angle, 
the  plug  base  area,  the  minimum  throat  area,  the  maximum  throat  area,  the 
minimum  nozzle  expansion  ratio,  and  the  maximum  nozzle  expansion  ratio. 


The  following  nomenclature  is  employed  for  the  fixed  input  terms  in  Table  1. 

Self  explanatory  items  are  not  included. 

S/D  -  Nozzle  Spacing  Ratio  -  The  ratio  of  the  distance  between  the 

centerlines  of  the  nozzles  to  the  maximum  nozzle  diameter. 

The  approximate  values  of  1.25  for  narrow,  1.625  for  inter¬ 
mediate,  and  2.0  for  wide  spaced  nozzles  are  suggested  since 
the  data  correlations  are  based  on  data  for  these  ratios. 


NT 

IT 

amb/am 


-  Nozzle  Type  -  Convergent  type  nozzles  include  convergent-flap 
and  convergent-iris  types . 

-  Interfairing  Type  -  The  distinguishing  characteristics  of  the 
interfairings  is  the  orientation  of  the  trailing  edge  (ver¬ 
tical  or  horizontal). 

-  Metric  Break  Area  Ratio  -  The  approximate  value  of  O.85  is 
suggested  since  the  data  correlations  were  obtained  with  this 
value . 


IMSF 


awf/am 


-  Forward  Integral  Mean  Slope  -  IMS  value  for  the  surface  between 
the  maximum  fuselage  area  and  the  metric  break  stations.  A 
negative  input  means  that  an  area  distribution  curve  (X/D  vs 
A/Am)  is  being  included  and  IMSF  will  be  computed  internally. 

-  Initial  Boattail  Wetted  Area  Ratio  -  The  wetted  area  (not  in¬ 
cluding  the  lifting  portion  of  the  wing)  from  the  maximum 
fuselage  area  station  to  the  metric  break  station,  divided  by 
the  maximum  area. 


(Ag/A  )^  -  Minimum  Nozzle  Expansion  Ratio  -  The  minimum  expansion  ratio 

used  to  test  for  maximum  thrust-minus-drag. 

(Ag/A  )j^  -  Maximum  Nozzle  Expansion  Ratio  -  The  maximum  expansion  ratio 

used  to  test  for  maximum  thrust-minus- drag.  Twenty  expansion 
ratio  values  are  tested  between  the  minimum  and  maximum  values. 


4.1.2  Variable  Inputs 

The  variable  inputs  are  those  data  which  are  changed  as  parameters  of  the 
performance  analysis  plus  the  portions  of  the  aircraft  internal  and  external 
geometry  which  change  with  variations  of  these  parameters.  Each  type  of 
variable  input  occurs  on  a  different  card,  allowing  the  user  to  input  several 


values  of  each  run  parameter  on  each  card.  The  program  runs  all  possible 
combinations  of  tne  run  parameters,  cycling  from  larger  to  smaller  sequence 
card  numbers  and  from  left  to  right  for  a  given  sequence  number. 

The  input  cards  for  the  variable  input  data,  cards  3  through  21  plus  nozzle 
type  dependent  cards,  all  have  the  same  data  format.  The  first  three  fields 
on  each  card  are  of  3  columns  each,  starting  with  column  1.  These  three  inputs 
are  integers  and  include,  in  order,  a  sequence  or  identification  number 
which  is  the  sf|,me  as  the  card  number,  the  number  of  values  of  the  variable 
input  which  appear  on  the  card,  and  an  input  code  selecting  from  the  possible 
input  types  allowed  for  each  variable  input,  as  noted  in  Table  1.  All  the 
integer  inputs  must  be  right-adjusted  in  their  respective  fields.  Up  to  ten 
values  of  each  parameter  may  be  input  on  each  card  in  the  following  ten  real 
number  fields  of  six  columns  each,  columns  10  through  69. 

The  following  input  code  (ICODE)  combinations  for  input  of  the  freestream 
conditions  in  cards  3>  4  and  5  are  unacceptable. 


ICODE  (3) 

ICODE  (4) 

ICODE  (5) 

1 

1 

2 

1 

4 

2 

>2 

1 

2 

>2 

1 

3 

>2 

4 

1 

>2 

4 

2 

>2 

4 

3 

If  any  of  these  ICODE  combinations  are  used,  an  error  message  will  result 
with  a  brief  description  of  the  inconsistency. 

The  following  nomenclature  is  employed  for  the  variable  input  items  in 
Table  1. 

PS  -  Power  Setting  -  The  value  of  power  setting  is  used  only  as  an  in¬ 
dependent  variable  on  optional  user-supplied  curves  (see  cards  7,  8, 
and  CD  ejector  card  24).  The  scheme  of  the  power  setting  values  is 
left  up  to  the  user. 

Nozzle  Pressure  Ratio  -  Primary  total  to  freestream  pressure  ratio 
in  the  case  of  an  ejector  nozzle. 

# 

Nozzle  Specific  Heat  Ratio  -  Primary  stream  specific  heat  ratio  in 
the  case  of  an  ejector  nozzle. 

Nozzle  Throat  Area  -  Either  the  physical  throat  area  (Aj)  or  the  aerodynamic 
throat  area  (ATflow^  may  be  inpu^*  Whichever  is  input,  the  program  will 

compute  the  other  internally. 


PTp/Pa)  - 
YP 
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or  -  Nozzle  Throat  Approach  Angle  -  The  angle  between  the  internal  wall 

and  the  nozzle  centerline  in  the  conical  part  (if  any)  upstream  of 
the  nozzle  (primary)  throat.  For  plug  nozzles,  enter  zero. 

Nozzle  Throat  Geometry  -  For  convergent,  convergent-divergent,  and  conver¬ 
gent-divergent  ejector  nozzles,  the  ratio  of  the  internal  contour  radius  of 
curvature  (if  any)  at  the  nozzle  (primary)  throat  to  the  throat  radius 
(Rc/Rt).  For  plug  nozzles,  the  input  value  is  Rc  R^/S  ,  where  Rc  is  the 

average  radius  of  curvaiure  between  the  internal  shroud  and  plug  at  the 
throat,  R^  is  the  average  radius  between  the  shroud  and  the  plug  at  the 

throat,  measured  from  the  nozzle  centerline,  and  S  is  the  height  of  the 
throat  legion  measured  normal  to  the  plug. 

A  /A  -  Nozzle  Expansion  Ratio  -  A  value  not  equal  to  1.0  for  the  case  of 
a  convergent  or  unshrcuded  plug  nozzle  will  result  in  an  error 
message.  A  request  for  the  maximum  thrust-minus-drag  will  perturb 
the  expansion  ratio  from  the  minimum  to  the  maximum  value. 

AX/D^  -  Nozzle  Base  Length  to  Diameter  Ratio  -  The  axial  distance  covered  by 
the  base  of  a  nozzle,  such  as  in  the  case  of  a  flap  nozzle,  divided 
by  the  equivalent  maximum  diameter. 

0M  -  Mean  Nozzle  Boattail  Trailing  Edge  Angle  -  The  mean  boattail  angle 
at  the  end  of  the  boattail  over  a  distance  of  one-third  the  exit 
radius . 

L/D^  -  Total  Boattail  Length  to  Diameter  Ratio  -  The  total  length  from  the 
maximum  area  station  to  the  end  of  the  nozzle  or  interfairing, 
whichever  extends  further,  divided  by  the  equivalent  maximum  dia¬ 
meter.  The  independent  variable  in  the  curve  IDC172  is  the  difference 
between  the  maximum  and  total  frontal  areas,  equivalent  to  the  base 
plus  exit  areas. 

IMSA  -  Aft  Integral  Mean  Slope  -  A  code  equal  to  3  means  an  area  distribu¬ 
tion  curve  is  being  furnished  consisting  of  X/D^  versus  A/A^  aft  of 
the  metric  break  in  order  to  calculate  IMAS  internally.  The  initial 
area  (metric  break  area)  must  be  the  maximum  area  of  the  array  and 
the  areas  must  be  continually  decreasing  with  increasing  X. 

AA/A^  -  Adjusted  Projected  Frontal  Area  Ratio  -  An  non-zsro  input  is  used 
when  the  configuration  is  characterized  by  an  increase  in  area  dis¬ 
tribution,  such  as  in  the  case  of  the  fantail  portion  of  a  maximum 
afterburning  nozzle.  The  value  of AA  is  that  frontal  area,  forward 
and  rearward  facing,  ich  is  not  included  in  the  frontal  area  de¬ 
termined  by  taking  t'  maximum  minus  the  exit  plus  base  areas . 

0  -  Nozzle  Boattail  Trailing  Edge  Angle  -  The  nozzle  boattail  angle  at 

the  trailing  edge  of  the  boattail  surface. 
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A^/Am  -  Total  Boattail  Wetted  Area  Ratio  -  The  wetted  area  (not  including 
the  control  surfaces)  from  the  maximum  area  station  to  the  end  of 
the  body. 

Asi/^T  "  Shroud  Throat  Area  Ratio  -  The  ratio  of  the  minimum  area  of  the 
mixed  region  of  an  ejector  nozzle  to  the  primary  throat  area. 

Pumping  Characteristics  -  User  has  the  option  of  furnishing  either  the 
secondary  to  primary  total  pressure  ratio,  Pmq/^Tp’  or  ^he  corrected  mass 
flow  ratio,  WsV/rTTs  /  Wp^/Tjp. 

Lp/D^  -  Plug  Length  to  Diameter  Ratio  -  The  length  of  the  exposed  portion 
of  the  plug  divided  by  the  equivalent  maximum  diameter  of  the 
configuration. 

Most  of  the  variable  inputs  may  be  input  as  curves  as  an  allowable  option. 

To  exercise  this  option,  the  user  places  a  1  in  column  6  (number  of  input 
values)  and  the  appropriate  input  code  in  column  9*  The  data  curves  are  then 
input  as  either  uni variant  (one  independent  and  one  dependent  variable)  or 
bi-variant  (one  dependent  and  two  independent  variables)  according  to  the 
input  code  selected.  The  identifier  (name)  of  each  curve  (as  given  in  Table  l) 
is  formed  by  adding'  the  (two-digit)  card  number  and  (one-digit)  input  code 
number-  to  the  characters  IDC.  For  instance,  a  bivariant  curve  for  nozzle 
pressure  ratio  is  called  IDCO73.  The  curve  data  are  input  on  cards  following 
the  25  cards  in  the  main  input  set. 

Univariant  curve  data  must  begin  with  a  card  containing  the  curve  identifier 
(alpha-numeric)  in  columns  1  through  6,  an  interpolation  code  integer  in 
columns  7  through  9,  an  extrapolation  code  integer  in  columns  10  through  12, 
and  the  total  number  (integer)  of  input  fields  for  X  and  Y  data  for  the  curve 
in  columns  13  through  15.  The  succeeding  cards  contain  the  data  in  the  order 
X^,  Y  ,  X2,  Y2  ...  in  real  number  (decimal)  fields  of  six  columns  each  start¬ 
ing  in  column  1.  The  univariant  curve  data  input  key  is  found  in  Table  2. 

Bivariant  curve  data  begin  with  a  card  containing  the  ident'fer  (columns  1 
through  6),  the  interpolation  code  in  columns  7  through  9,  the  extrapolation 
code  in  columns  10  through  12,  the  number  of  Z  values  (integer,  columns  13 
through  15),  and  the  number  of  X  and  Y  fields  for  each  Z  in  integer  fields 
of  three  columns  each  starting  with  column  l6  and  input  in  the  same  order  as 
the  Z  values.  The  following  cards  contain  the  data  in  the  order  Z  ,  X  ,  Y  , 

X12’  Y12’  ***  Z2’  X21’  Y21’  X22’  Y22’  in  rea:L  number  fields  or  six'  columns 
each  starting  in  column  1.  The  bivariant  curve  data  input  Key  is  found  in 
Table  3*  An  example  of  each  curve  type  is  given  in  Appendix  A, 

4.1.3  Input  Routine  Control  Cards 

The  input  routine  control  card  follows  a  complete  main  input  set  of  25  cards 
and  optional  input  curves  and  allows  the  user  one  of  four  options.  If  further 
variations  in  the  nozzle  independent  variable-type  inputs  (cards  3-21)  are 


desired  with  the  inclusion  of  a  new  title  card,  a  99  car  (columns  2  and  3) 
containing  the  number  of  variation  cards  to  follow  (colunis  5  and  6)  is  used. 

If  no  new  title  card  is  to  follow  but  variation  cards  are  included,  an  88 
card  is  used  (8  in  columns  2  and  3>  the  number  of  variation  cards  in  columns 
5  and  6).  The  variation  input  cards  need  contain  only  those  data  changed 
from  the  previous  case  but  may  not  be  used  to  change  either  fixed  input  or 
nozzle-dependent  variable  input.  Additional  optional  data  curves  follow  the 
variation  cards  but  a  new  curve  may  not  be  used  to  replace  a  curve  used  in 
the  basic  case.  If  another  basic  case  of  25  cards  is  to  follow,  an  888  card 
is  used  (columns  1,  2,  and  3>  all  other  columns  blank)  followed  by  the  25 
cards  and  optional  data  curves.  The  input  routine  is  terminated  by  the  use 
of  a  999  card.  The  arrangement  of  the  input,  curve,  and  control  cards  is 
shown  in  Figure  25. 

4.2  PROGRAM  OUTPUT 

The  aircraft  geometric  characteristics  and  internal  and  external  performance 
parameters  are  printed  at  the  end  of  each  case.  Input  inconsistency  or  non¬ 
convergence  of  a  program  iterative  routine  causes  the  program  to  print  an 
error  message  and  advance  to  the  next  case.  A  discussion  of  the  output  format, 
including  a  listing  of  all  the  error  messages,  is  presented  below. 

4.2.1  Format  Description 

The  input  title  for  the  computer  run  is  printed  out  at  the  beginning  of  each 
set  of  output  data.  This  is  .  llowed  by  the  configuration  description 
(nozzle  spacing,  interfairing  type,  nozzle  type,  vertical  stabilizer  type, 
and  clean  or  actual  aircraft  model)  at  the  left  side  of  the  page.  The  aft-end 
geometric  characteristics  and  the  internal  and  external  performance  parameters 
are  listed  in  four  columns,  each  of  which  contains  descriptive  variable  names 
and  the  associated  input  or  computed  value.  The  first  (left  hand)  column 
lists  the  input  flight  conditions  and  computed  performance  parameters.  The 
next  column  lists  the  fixed  and  nozzle-power  setting  dependent  aircraft 
geometric  parameters.  Nozzle  internal  areas  and  exhaust  flow  characteristics 
are  listed  in  the  third  column.  The  fourth  and  final  column  contains  the 
boattail  pressure  and  friction  drags,  the  base  drag,  and  the  total  aft-end  drag 
in  both  force  and  coefficient  forms.  The  drag  coefficient  reference  area  and 
the  portion  of  the  aircraft  to  which  the  analysis  applies  are  defined  by  the 
comment  lines  printed  out  after  the  numerical  data.  Sample  output  pages  are 
shown  in  Appendix  A. 

4.2.2  Error  Messages 

An  inconsistent  set  of  input  data  or  a  convergence  failure  in  a  program 
subroutine  will  result  in  an  error  message  being  printed  out.  When  a  situa¬ 
tion  causing  an  error  message  is  encountered,  the  program  ceases  computation 
on  the  case  being  processed  and  proceeds  to  the  next  case.  Each  error  message 
contains  a  brief  description  of  the  type  of  error  and  is  generally  self- 
explanatory.  In  the  throat  area  iteration  in  the  main  routine,  a  location 
number  is  printed  out  in  case  of  non- convergence  identifying  which  of  several 
similar  iterations  the  case  passed  through. 
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NEW  BASIC  CASE  OF  25  CARDS 
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Figure  25.  Data  Deck  Arrangement 


Input  inconsistencies  found  by  the  main  program  are  as  follows: 


DIMENSIONAL  FLIGHT  SPEED  INPUT  REQUIRES  AMBIENT  PRESSURE  AND 
TEMPERATURE  INPUTS 

NON-STANDARD  TEMPERATURE  INCREMENT  MAY  BE  USED  ONLY  WITH  ALTITUDE 
INPUT  FOR  PRESSURE 

NON-UNITY  DIVERGENCE  AREA  INPUT  FOR  NON-DIVERGING  NOZZLE 


Additional  input  data  checks  are  made  by  nozzle  performance  subroutines. 
Error  messages  from  these  checks  are: 

Subroutine  EJECTR 

SECONDARY  FLOW  TOTAL  PRESSURE  LESS  THAN  FREESTREAM  STATIC 
Subroutine  NOZPLG 

PLUG  NOZZLE  MUST  BE  CHOKED 


Error  messages  which  may  result  from  non-convergence  of  iterative  computations 
are  as  follows : 


MAIN  Routine 

at  WILL  NOT  CONVERGE 

INPUT  TEMPERATURE  ITERATION  WILL  NOT  CONVERGE 
Subroutine  AFTEND 

REYNOLDS  NUMBER  ITERATION  FAILED 
EXTERNAL  EXIT  MACH  NUMBER  ITERATION  FAILED 
Subroutine  EJECTR 

PUMPING  CHARACTERISTICS  ITERATION  FAILED 
EXIT  PRESSURE  ITERATION  FAILED 
MACH  NUMBER  ITERATION  FAILED 

RECOMPRESSION  PRESSURE  GREATER  THAN  THROAT  PRESSURE 
UNCHOKED  WSWP  GREATER  THAN  CHOKED  WSWP 
Subroutine  NOZZLE 

NOZZLE  THROAT  AREA  ITERATION  FAILED 
NOZZLE  EXIT  MACH  NUMBER  ITERATION  FAILED 
COMPUTED  NOZZLE  DIVERGENCE  AREA  LESS  THAN  UNITY 
Subroutine  NOZPLG 

MACH  NUMBER  ITERATION  FAILED  AT  LOCAL  EXPANSION  ANGLE 
NOZZLE  EXIT  MACH  NUMBER  ITERATION  FAILED 

4.3  PROGRAM  SETUP 


The  computer  program  has  been  written  in  FORTRAN  IV  compatible  with  the 
SCOPE  3.3  system  for  the  CDC  6600  digital  computer.  The  program  requires 
300,000  octal  bytes  of  core,  20  seconds  of  run  time  per  100  cases,  and  stand¬ 
ard  input/output  files,  except  an  alternate  file  used  by  LSTDAT,  described 
below. 

The  computer  program  source  deck  contains  one  main  routine  and  13  subroutines. 
These  are  listed  below  in  hierarchical  order,  i.e.,  each  indentation  indicates 
that  the  subroutines  in  that  list  are  first  used  by  the  subroutines  in  the 
preceding  list. 
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MAIN 


AFTEND 

ATM02 

EJECTR 

FLTSPD 

ITRATI 

LSTDAT 

N0ZPLG 

N0ZZLE 

XTRP 

AREAS 

ITERAT 

ITRATA 

ITRATE 

A  brief  description  of  each  routine  is  provided  below: 

MAIN  -  Processes  input,  calls  subroutines,  and  prints  results. 

AFTEND  -  Computes  twin-nozzle/aftbody  drag. 

ATM02  -  Obtains  ambient  pressure  and  temperature  for  the  1962  U.S. 
standard  atmosphere. 

EJECTR  -  Computes  thrust  coefficient  for  a  convergent-divergent 
ejector  nozzle. 

FLTSPD  -  Provides  freestream  Mach  number,  true  air  speed,  and  indicated 
air  speed  provided  one  of  these  parameters  is  known. 

ITRATI  -  One-dimensional  solution  of  a  non-linear  equation. 

LSTDAT  -  Reads  in  from  regular  input  file,  stores  an  alternate  input 

file  to  be  read  by  the  program  for  the  purpose  of  listing  the 
input  data 

NOZPLG  -  Computes  thrust  coefficient  for  shrouded  and  unshrouded 
plug  nozzles. 

NOZZLE  -  Computes  thrust  coefficient  for  convergent  and  convergent- 
divergent  nozzles. 

XTRP  -  Interpolates  and  extrapolates  input  data  curves. 

AREAS  -  Determines  area  and  Mach  number  for  both  primary  and  secondary 

ejector  nozzle  flow  streams  provided  the  pumping  characteristics 
and  static  to  total  pressure  ratios  for  one  of  the  streams  is 
known . 

ITERAT  -  Computes  Mach  number  from  the  Prandtl-Meyer  expansion  angle. 
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IMMMMMMl 


a 


ITRATA  -  N-dimensional  non-linear  simultaneous  equation  solution. 

ITRATE  -  One-dimensional  solution  of  a  non-linear  equation. 

The  order  for  deck  assembly  is  standard.  Job  control  cards  are  placed  at 
the  front,  followed  by  the  source  deck  containing  the  main  routine  and 
subroutines  listed  above.  Cards  with  case  input  data  including  the  input 
curves,  follow  the  source  deck.  As  noted  earlier,  only  standard  input  and 
output  files  are  required,  except  for  the  alternate  file  used  by  LSTDAT. 
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APPENDIX  I 
SAMPLE  CASES 
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Figure  26.  Sample  Computer  Program  Input  -  Case 
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Figure  27 ♦  Sample  Computer  Program  Input  -  Case  2 _ 
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FORM  8104-1 
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FORM  8104-1 


T1TIE: _ Figure  28.  Sample  Comp  iter  Program  Input  -  Case  3 
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Figure  31.  Sample  Computer  Program  Output  -  Case  2  (Continued) 
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Figure  32.  Sample  Computer  Program  Output  -  Case 
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Figure  33 •  Sample  Computer  Program  Output  -  Case 


APPENDIX  II 
PROGRAM  LISTINGS 


' 


,4«lC*  jEl  i «  giijfcfcftiM&A  J 


;M££| 


DIMENSION  l)DB(  17D»00BK  8 1  .RCRTCD132 1  ,F  t  G5  (32)  ,  D0B2  (45  )  MAIN 

OIMFNSIDN  AA(  50  *  XX(50),  3IFF(49I,  FS?l8l(3SI,  NVARY (24 )  MAIN 

DIMENSION  IOC  0  721  501  ,  IOC 073  (  3001  ,100082 (50)  ,IDC392  C50 1 » I  UC094 (50 1  .MA  IN 


I  DC  1021  501  *  10CU2I  501  ,1  OC  123(501  ,100132(50) • I DC1 42  (50 1 ,  IOCl  52(  50  IMA  IN 


♦  IOC  162(501. 10C172I 50) , l OC 182( 50) ,IOCI83(lOO) , I0C192150),  MAIN 

(0:202(  501*  MAIN 

I0:203(  300)  *  ID:  21  2  (50)  *1  DC  222  (  50)  *1  DC  232(531*1  DC234 (50  )»  MAIN 

13:242(50)  ,  IBLM23I,  IOC (1700)  *  I  NCURV( 22  »  ,C JRV ( 300  )  MAIN 

DIMENSION  T  I  TLFl  18)  ,0IN(30,10),I  NUM(30)  »I  CODE  (33)  MAIN 

F3UIVALENCE  (  I  DC  (  I »  •  IOC072I  l )  I  « ( 1 0C(  51).  IOC373ID)  MAIN 

1(I0C( 351 ) * (OC  G62(  1) ) * ( I OC ( 401 ) « 1 0C092 ( 1 ) ) * ( I  DC (45 1 )  *  1 0C094 ( 1  ) ),  MAIN 

2(1  OC  (  501  )*  IOC  1C2(  1)  )  ,( IOC  (551)  *I0C112(1))  •  (IOC  (SOU  •  I  DC  123  ( 1 )  )*  MAIN 

(  651),  IOC  132(  1)  )  •(  I  DC  (701 )  *  I  OC  1 4  ?  ( 1 )  )  ,  ( I  OC  (75 1 )  ,  I  DC  152  ( 1 )  )*  MAIN 

,( IOC(  851 1.IOCl  72(D)  ,  (I  DC  (931  )  ,  IOC  182  (I  )),  MAIN 

)  )  ,(  (  OC  (  I05D  ,  I  DC  192  (I)  >  .  (I  DC  (HOD*  I DC20 2 fl) I , MA IN 
)  ),(I0:(145D  ♦  I0C2I  2  (l ) )  *  ( I  OC  ( 1 50 D  ♦  I  DC222(i  ) )  *MA  IN 
(1601) ,(0C234(1)),(I0C(1651)*IDC242(1))  MAIN 
I  NUM(  3)  )  *  ( (NUM4.I  NUM(4)  )  •  ( I  NJM5*  I NJM  ( 5 )  >, 

,  (  I  NUM7  .1  NUM(  7) )  ,  (I  NUM8  ,1NJM(  8)), 

,(  l  NUM1 0* I  NUMUO))  ,  (I  NUM1 1,1  NJM (11)), 

*(  INUM13,INUM(13))  ,  (1  NUM14  *  I  NUM(  14  )  ) , 

,(  INUMlb.l  NUM(  16) )  ,(I  NUM17.I  NJM(  17) ), 

,(  I  NUM1 9*  I  NUM(  19))  « ( I  NUM20  *  I  NLJM(  20  ) )  * 


3(10 

4 ( I  DC (  801),  IOC 162( 1)  ) 
6(I0C(  951),  IOC  183(1 
61 1  o: (  14011,  IDC2031 1 
71  I o: ( 1550),  IOC 232(1) )  ,  (  1 0 
E3UIVALENCE  (  INUM3, 


1(  INJN6  , INUM1  6) 
2 ( I NJM 9  ,  INUM(  9) 
3(1NJN12,INUM(  12) 
4( I NJM 15, INUM ( 15) 
5( 1 NJM 18, INUM( 18) 
6( INJM 21, INUM( 2 1) 
7(1 NJM  24, INUM ( 24) 


,(  I  NUM22  ,(  NUM(22  ) )  ,  ( 1  NUM23 , 1  NJM(23) ), 


MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MAIN 


000 

001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

Oil 

012 

013 

014 

015 

016 

017 

016 

019 

020 

021 

022 

023 

024 


OATA 

DOB/ 

♦NARR* 

,*3W  S*,*PACI  *,*NG  *,*  *,* 

*.* 

*,* 

,  M  A 

IN 

025 

l* 

* , 

*  INTE* 

,*RMEO*,*I  ATE  *,*  SPA*,*CI  NG*»  * 

*,* 

,  MA 

IN 

026 

2* 

*, 

*W I OE* 

,*  SPA*, *CI  NG*,*  *,*  *,* 

*,* 

*,* 

»MA 

IN 

027 

3* 

♦, 

♦WIDE* 

,*  spa*,*:i NG*,*  *,*  *,* 

*.* 

*,* 

,  M  A 

IN 

028 

4* 

*. 

♦HORI* 

,*ZONT*,*AL  I *,*NTER*,*FA|R*,*ING 

*.* 

*.* 

,  MA 

IN 

029 

5* 

* , 

•  VERT* 

,*ICAL*,*  1  NT*,*ERFA*,*IRIN*,*G 

*,* 

*,* 

,  M  A 

IN 

030 

6* 

*» 

*CONV* 

,*ERGE*,*NT  N*,*OZZL*,*E  *,* 

*.* 

*.* 

,  MA 

IN 

031 

7* 

*, 

*CONV* 

,*ERGF*,*NT-D*,*IVER*,*GFNT*,*  NOZ*,*ZLE 

*,* 

,  MA 

IN 

032 

8* 

*, 

*CON V* 

,*=RGE*.*NT-D*,*IVER*,*GENT*,*  FJE*,*CTOR* ,* 

NOZ* 

,MA 

IN 

033 

9*ZLE 

*, 

*UN  SH* 

,*ROUO*,*FO  P*,*IUG  *,*NOZZ*,*LE 

*,* 

*.* 

,  MA 

IN 

034 

A* 

*SHRC* 

,*UI)fcO*,*  PLU*,*G  NO*, *ZZLE*, * 

*»*  . 

,  MA 

IN 

035 

B* 

•SING* 

,*IE  V*,*ERTI *,*CAl  *,*STAB*,*ILI Z*,*ER 

*,* 

•  MA 

IN 

036 

C* 

♦TWIN* 

,*  VFR* , *T I  C A*, *L  ST*,*ABIL*»*IZFK*,*S 

*,* 

,MA 

IN 

037 

0* 

*, 

♦CLEA* 

,*N  A I  * , *P  C  RA  *, *F  T  M*,*ODbL*,* 

♦  ,* 

*,* 

,  MA 

IN 

038 

E* 

*, 

•ACTL* 

,*AL  A*,*IRCR*,*AFT  *,*  *,* 

*,* 

♦.* 

•  MA 

IN 

039 

F* 

*/ 

MA 

IN 

040 

OATA 

0082/*  SUB  S* 

, *3N  IC  *,  *  F  LO*,  *W  (U*,*NCHO*,*CKEI)*,*» 

*,* 

•  MA 

IN 

041 

G* 

*, 

♦  SEPA* 

,*RATE*,*3-CU*,*SP  l  *,*NTER*,*POLA*,*T  ION*,* 

,MA 

IN 

042 

H* 

*, 

*  SEPA* 

,  *R  A  TE  *,  *0  FL*,*OW  *,*  *,* 

*,* 

*,* 

,  MA 

IN 

043 

I* 

*. 

•  FLOW* 

, *1  NG  *,*FULL*, *  *,*  *,* 

*,* 

*.* 

•  MA 

IN 

044 

J* 

*, 

*CR I T* 

,*ICAL*,*-UNC*,*HOKF*,*D  *,♦ 

*,* 

*,* 

»MA 

IN 

045 

K* 

*/ 

MA 

IN 

046 

OATA 

OOB l/*ME TR* 

,*IC  B  *,  *RE  AK*,  *  *,*MAX  I  *,  *MJM 

♦  .♦AREA*,* 

* 

/MA 

IN 

047 

l  N  TEGFR  0  MAIN  048 

PE Aw  LM30M,  IMSF.LEXP,  IOC  ,LP,LMB  MAIN  049 

REA.  IOC  072,  IOC  0  73 , 1  DC  082  ,1  0C092  ,I0C394,IDC132,I0C112,  IOC  123,  MAIN  050 

1  I0;i32,  I0:i42,lDCl52,IDC162,I0Cl72,10Cl82,IDCl92,IOC202,I0C203,  MAIN  051 

2  I 0C2  12, IOC  222, 10C2  32, I0C234,  I0C242 , IOC  1 83  MAIN  052 

DATA  IBLK/O,  350,  400,  500,  550,  603,  550,  733,  750,  800, MAIN  053 

l  850,  900,  1050,  1100,  1450,  1500,  1530,  1650/  MAIN  054 

F3(TERMDs3.5-SlN(23. 8062  *(  TERMl -.95 ) ) /COS  (23. 8 062 *( TERMI-.95 ) )  MAIN  055 
C2ITTM1)  »  8  •  E-  6/(  (  TR  Ml-.  9651  **2  ♦4.E-4)  MAIN  056 

C3ITTMX)  *  .0011- .00205* SIN( 74.8*(TRMX  -.952)  ) ♦ l ( ,92-TRMX)*.0574*  MAIN  057 

l  ABS(  (  ,92-TRM  X)*.0574))/2.  MAIN  058 


•♦•CONTINJING 
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F4(TARMI,TARM2I*TATM1-C2(  TARM1I  *(  TAR  M2  -F3  (  TARMl) )  **2*C3(T 
l  * ( T ARM2-F3I  TARMl))**3 


ARM  1 ) 


MAIN 

MAIN 


DATA 

RCRTCO  / 

2., 

1., 

0.  , 

28. 

, 

MAIN 

061 

A 

0., 

.883, 

.05, 

.9, 

.  1  , 

.917 

,  .15 

,  .932, 

MAIN 

062 

8 

.2, 

.943, 

.3, 

.961 

,  .  4  , 

.972 

,  .5, 

.977, 

MAIN 

06  3 

C 

•  6t 

.981  , 

.8, 

.986 

,  1.0 

,  .989 

,  1.2 

,  .992, 

MAIN 

064 

0 

1.6, 

.995, 

2.0, 

.996 

/ 

MAIN 

065 

DATA 

FIG5  / 

2., 

1.  , 

0.  , 

28.  , 

MAIN 

066 

1 

0.. 

.998, 

5.  , 

.988, 

10.  , 

.978, 

15., 

.968, 

MAIN 

067 

2 

20.  , 

.958, 

25., 

.947, 

30.  , 

.937, 

35., 

.929, 

MAIN 

068 

3 

40.  • 

.921, 

50. , 

.908, 

60.  , 

.897, 

70., 

.888, 

MA  IN 

069 

4 

80 . , 

.882, 

90.  . 

.877 

/ 

MAIN 

070 

DATA 

FG2181  / 

2., 

1.  , 

0.  , 

32.  , 

MAIN 

071 

A 

0. , 

.953, 

1.  , 

.  96  , 

2.  , 

.966, 

3., 

.971, 

MAIN 

072 

8 

4., 

.975, 

5.  , 

.978, 

6.  , 

.93, 

7., 

.98  2, 

MAIN 

073 

C 

8., 

.983, 

9.  , 

.984, 

10.  , 

.9848, 

11. t 

.9851, 

MAIN 

074 

0 

12., 

.9855, 

13., 

.9858, 

14.  , 

.9859, 

15., 

.9859  / 

MAIN 

075 

0*  3 

CAL.  LSTOATlni 
MO  =  868 
MA?Y  *  19 
03  1  I  =  1,22 
NYA RY(  I)  *  0 
PI  *  3.1415927 
GAMFS  *  1.4 
RR»  *  1716.5 
GRAY  =  32.174 
RAO  *  .017453 
REA3ID, lOOOITITLP 
MIH  22*  1 
MUM  2  3*  l 
MUM  24*  1 

IF (  l M D  .EO.  8081 

IP  E  A3  (U,  10101  I  SO.  NT,  I  T,  A  WI  NS  ,AM,AMBAM,IMBDM,  I  MSF,  AWFAM 
03  10  J  =  1,1  VAR  Y 


MAIN 
MAIN 
MA  IN 
MA  IN 
MAIN 
MA  IN 
MAIN 
MA  IN 
MAIN 
MA  IN 
MAIN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MAIN 
MA  IN 


PEA013, 10151  (CARD,  I  NUM(  I  :  A  KOI  ,  I  CUOE  ( I C  ARO)  ,  (OINI  I  CARO,  I),  I*  1,  10  IMA  IN 


NE.  8881 


TO  253 


IF { I N  0  .NE.  88ei  NVA°  Y(  I  SAM  01  *  ICARD 
C3NT INUF 

IF  I M  V  AR Y(  4 )  .FQ.  0  .AND.  INO.  NE .  8881  SO  TO  253 
IF ( l CUOF ( 41 .NE .4IG3  TO  12 
0311  1*1,10 

QINI4, I >*9IN( 4 , 1 > ♦ 1 . fc  6 

IPMYAPYI4) .NF.0IG3  TO  250 

IF  (NT  .NF.  II  GO  TO  15 

REA0(0, 1020IATMIN.A  TMA X,Q,3  , ( 0, l *1 ,121 

GD  T3  25 

IF  (NT  .NE.  21  GO  TO  20 
REA0(fJ,1020)FL,AEATMN,AEATMX 
READ(f),  1020)  (Q,I*1,  121 
G3  T3  25 

|F(NT  .NE.  31  GO  T3  24 
03  21  J=  i, 3 

RFA0(3,1015)ICAR0,INUM((CAR0I ,1 C  ODE ( I  CARO  I  . (Qi Nl I  CARD, I » , 
READ(0,1020ILEXP,AEA  TMN.AEA  TMX.GAMS 
G3  T3  25 

REAO(  0,1015 1  ICARO.lNUMdCAROI  , l C OOE ( I  CARO  I  ,  (QI Nl  I  CARO,  1 1 , 
RE AD( 0, 1030 1 ALPHA P, APS ,A  TM| N, A TMAX ,AE ATMN , AEAT MX 


1*1,  10) 


1*1,  10) 


MAIN 
MA  IN 
MAIN 
MA  IN 
MA  IN 
MAIN 
MA  IN 
MA  IN 
MAIN 
MA  IN 
MA  IN 
MAIN 
MAIN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 


♦  ONT INJ ING 
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READ! 0, 1020  )(Q,I*l«8) 

25  IF  I  ICDDEt  12)  .EQ.4  .ANO.  N  T.  G  T.l  J  OAE  A  T*{  AE  ATMX  -AEATMNI/20. 
IFI  MSF  .GE .  0.)  G3  TP  250 

READIQ*  1040)1  INCURVI  J)  ,  J*l ,  22) 

NIMSF  *  INCUR  VI  3) /2 

RE  AO  ( Ot  1030 1  (IXXKIfAAUli  ,1*1,  NIMSF) 

N111  *  N  MSF-  1 
SA  *  0. 

03  370  1 3  1,  NI M 1 

370  OIFFC  1 1  =  (  AA(  IMI-AAI  ttl/CXX(I«-ll  -XXI  I ) ) 

03  380  I  *  l»  NIM1 
AO  IFF  *- AAI  If l)fAAl  I  I 

380  SA  3  AO  I FF*DIF Fill  f ADI FF* I OIFF ( I f 1 1  -01 FF ( I  ) )/2.  f  SA 
MSF  *  SA/I  l.-AAINIMSFII 
MSF  =  A8SI  IMSFI 

250  IFIIMO  .NE.  886)  GO  T(J  265 
03  26  1*1,1700 

26  I  DC  I  11*0. 

265  03  30  Is  7,  24 

IF  1 1 M  D  .NE.  886  .AND.  NVARYU  )  ,E0.  0)  GO  TO  33 
Iu3C  3  IBLKl I-t) 

IF C  I  .63.  7  .AND.  IC0DEI7)  .EQ.  3)  ILOC*lLOCf50 

IF  1 1  .  EO .  9  .ANO.  i:00EI  9) . EQ.4  U  LOC*I  LOCf  5  0 

IF  I  I  .E3.  20  .ANO.  IC0DEI20)  .EQ.  3)  I LOC *1 LOCf 330 

IF ( I . EQ. 18  .AND.  1 COOE ( 1 8) . EQ.3 )  I  LOC  *1 LOCf 50 

IFII.EQ.23  .AND.  ICOOE  1 23)  .  EQ.4)  I  LOC  *1  LOCf  50 

IF(  N  T  .NE . 3  . ANO. I .GE .22IGO  TO  30 

IF  (  ICODEI  I  )  .EQ.  I  )G0  TO  30 

IF  (ICOOE(I)  .EQ.  3  .ANO. (I  .EO.  9  .OR.  I  .EQ.23  )) 

IG3  T3  30 

IFUCOOEU)  .EQ.  4  .ANO.  1 1  .EQ.  20  .OR.  I.EQ.12DG0  TO  30 
IFIICOOEI I) .EQ.2.AND.I.EQ.12IG0  TO  30 
IFU.GT.22  .AND.  ICODFII  >  .EQ.3)  GO  TO  30 
RE AOI 0, 1040 ) I  INC UR VI J) , J 3 1 ,22) 

IN  3  INCURVI 31 

IFIICOOEI I )  .NE.  31  GO  TO  29 
IF  I  I  .  FQ  .  12  .OR.  I.  EQ.  18)30  TO  29 
C***  B I VAR  I A  TE 

NUNZ  *  INCURVI 3) 

NUMZ4*NUMZf 3 
ZNAX  *  0. 

I<*0 

IZSJM  *  0. 

03  27  J*  4, NUMZ4 

IZSJM  *  IZ  SUH  f  INC  UR VI J) 

27  ZMAX  *  AMAX11FL0ATI  INCURVI  J)  )  ,ZMAX) 

IZM4X*ZMAX 

IZNX13  IZMAXfl 

NJNZXV  *  2  f  IZSUM 

REAOIO,  1030)  ICURV1K  ),K*i  , NUMZXY) 

03  28  IR  *  1 , NUMZ 
IZ  *  INCURVI IR f3)f 1 
03  280  IS*1,IZ 

280  IDCI  IL0CfIKf6f  ISXURVII  Sf !  ZMXl*(IR-l)l 
IOCI  ILOCf  IK  f  6  )  *IZ-l 
l<  *  IK ♦  IZ  f  1 

28  CONTINUE 


MAIN  116 
MAIN  117 
MAIN  118 
MAIN  119 
MAIN  120 
MAIN  121 
MAIN  l 22 
MAIN  123 
MAIN  124 
MAIN  125 
MAIN  126 
MAIN  127 
MAIN  128 
MAIN  129 
MAIN  130 
MAIN  131 
MAIN  132 
MAIN  133 
MAIN  134 
MAIN  135 
MAIN  136 
MAIN  137 
MAIN  138 
MAIN  139 
MAIN  140 
MAIN  141 
MAIN  142 
MAIN  143 
MAIN  144 
MAIN  145 
MAIN  146 
MAIN  147 
MAIN  148 
MAIN  149 
MAIN  150 
MAIN  151 
MAIN  152 
MAIN  153 
MAIN  154 
MAIN  155 
MAIN  156 
MAIN  157 
MAIN  158 
MAIN  159 
MAIN  160 
MAIN  161 
MAIN  162 
MAIN  163 
MAIN  164 
MAIN  165 
MAIN  166 
MAIN  167 
MAIN  168 
MAIN  169 
MAIN  170 
MAIN  171 
MAIN  172 


•♦•CONTINJING 
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10C(IL0C*51  *  INCUR  VI  31 

MAIN 

173 

I DC (  H0C«-4)  *  ZMAX  2. 

HA  IN 

174 

IDCdlQC+l)  *  INC  UR  V  (  1 1 

HA  IN 

175 

(0C(  !L0Ct2)  *  INClKVm 

HA  IN 

176 

G3  TD  30 

HA  IN 

177 

29 

I0CIIL0C*4)  =  INCUR  V (  3 1 

HA  IN 

178 

IOC(  ILOC+l)  *  INCURVU) 

HAIN 

179 

IOC(  IL0C»2)  *  INC UR  V  (  2 ) 

MA  IN 

180 

READIO,  1030) ( IOCI J*I10C*4) , J*l,i  N) 

HA  IN 

181 

30 

CONTINUE 

HA  IN 

182 

OH  *  2.*SQRT(  AM/PI) 

Hi  IN 

183 

IPRINT  * 

2 

HA  IN 

184 

390 

IFdCODEIlBI  .NE.  3)  GO  TO  40 

HA  IN 

185 

SA  «  0. 

HA  IN 

186 

AHAHB  * 

l./AMBAM 

HA  IN 

187 

OH OH a  * 

l./SQRTUHBAMI 

HA  IN 

188 

NIHSA  * 

IOC  183(41/2. 

HA  IN 

189 

NIHAI  * 

NIHSA-1 

HA  IN 

190 

03  395 

I  *  l.NIMSA 

HA  IN 

191 

XXIII  = 

(  IOC183(2*I>3)-LMBOM|*OMDMB 

HA  IN 

192 

A  A  (  I  )  - 

IOC  1031  2*1  441  *AMAHB 

HAIN 

193 

IF  C I .GE. 

21  OIFF(I-l)  s(AA(I)-AA(I-l))/(XX(I)~XX(I-l)) 

HA  IN 

194 

395 

CONTINUE 

HA  IN 

195 

OO  39  7 

1  *  l  *  MMA1 

HAIN 

196 

397 

SA  *(  AA(  D-AAI  !♦!  I  l*OIFF  (  I )  4-  (  AA  (  1 1  —A  A  ( I  ♦  I )  )  *( DI FF  (  I  1  )-OIFF<  I  )  1/2 

.HAIN 

197 

l  ♦  SA 

HA  IN 

198 

QINI  1 8 *  1 1  * S A /  (  l.-AAI  NIHSA) ) 

HA  IN 

199 

OIN(  1 8* I l-ABSCQINI 10 • II » 

HAIN 

200 

40 

03  3003 

I  3* 1« INUM3 

HAIN 

201 

03  3004 

I  4* l , INUH 4 

HA  IN 

202 

OO  3005 

I  5*  1  .INUH 5 

HA  IN 

203 

01  3006 

I  6s 1 « I NUH6 

HA  IN 

204 

OO  3007 

I  7* l *  I  NUN  7 

HA  IN 

205 

OO  3008 

I  8*  1 » INUH  8 

HA  IN 

206 

OO  3009 

I 9* l » I NUM9 

HA  IN 

207 

OO  3010 

110* ltINUMlO 

HAIN 

208 

OO  3011 

1 11*1«  INUH  11 

HA  IN 

209 

01  3012 

112*1 » INUH 12 

HA  IN 

210 

OO  3013 

1 1 3=  l » INUH l 3 

HAIN 

211 

OO  3014 

I 14* l t INUH 14 

HA  IN 

212 

03  3015 

1 1 5*  1 « I NUH l 5 

HA  IN 

213 

OO  3016 

I 16* 1 f INUH 16 

HAIN 

214 

OO  3017 

1 17*1,  INUH  17 

HA  IN 

215 

OO  3018 

1 18*1.  INUH  18 

HA  IN 

216 

OO  3019 

119*1, INUH19 

HA  IN 

217 

OO  3020 

120*1, INUH20 

HA  IN 

218 

OO  30  21 

121*1, INUH21 

HAIN 

219 

OO  3022 

122*1, INUM22 

HAIN 

220 

03  3023 

123*1, INUH23 

HA  IN 

221 

OO  3024 

124*1, INUH24 

HA  IN 

222 

V3 

*0  IN  (  C3, 13  ) 

HAIN 

223 

V4 

*3  IN  (  C4,  14  ) 

HAIN 

224 

V5 

*3  IN  (  C5, 1 5  ) 

HA  IN 

225 

V6 

*3  IN ( C6, 1 6  ) 

HAIN 

226 

V7 

*3  IN  (  C7,  I  7  ) 

MAIN 

227 

V8 

*3 IN ( C8, 1 8  ) 

HAIN 

228 

V9 

*3  INI C9, 1 9  1 

MAIN 

229 
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VIO  *3  IN (  10, 1 1 0 ) 

MAIN 

230 

Vll  «3lN(ll,Ill> 

MAIN 

231 

V 12  *3  IN (  12*112) 

MAIN 

232 

V 1 3  =3  IN (  13*11 3  ) 

MAIN 

233 

V 1 4  *3  INI  14,114) 

MAIN 

234 

V 1 5  *3  IN  I  15, 115) 

MAIN 

235 

V16  *3  IN  (  16, 116) 

MAIN 

236 

V 1  7  *3  IN  C  17, 117) 

MAIN 

237 

VI  8  *3 l N ( 18, 118) 

MAIN 

238 

V 1 9  *3  INI  19, 1 19) 

MAIN 

239 

V20  =3  INI  20, 120) 

MAIN 

240 

V21  *3  IN  1 21,121) 

MAIN 

241 

V22  *3  INI  22, 122 ) 

MAIN 

242 

V23  *3  INI  23, 123) 

MAIN 

243 

V24  =3  INI  24, 124) 

MAIN 

244 

V209  =  0. 

MAIN 

245 

FLAG3  =  0. 

MAIN 

246 

ITMD  =  0 

MA  IN 

247 

IF  1 I  CODE  I  3)  .Gt.  2  )  GO  TO  35 

MA  IN 

248 

ICODEI  31  *  1  SECTION  *  +  ** 

MAIN 

249 

IF  I I CODE! 4)  .NE.  1)  GO  TO  31 

MAIN 

250 

IF  I  I CODE!  5  »  .EQ.  11  GO  TO  47 

MAIN 

251 

IF  1  ICODEI  5)  .EQ.  21  GO  TO  2001 

MAIN 

252 

V5  >  0  I M  5, 1  5 )  /  (  1 . *  .  2  *QI  N I  3  » I  3)  *+2  1 

MA  IN 

253 

GO  T3  47 

MA  IN 

254 

31 

IF  I ICODEI 4)  .NE.  2)  GO  TO  33 

MAIN 

255 

GEO?  A  *  Q IN l 4,  I4)/I0IN(4,I4)  /2.  084482E7  f  1.) 

MAIN 

256 

32 

CALL  ATM02I GEOPA ,  0.,  V5 ,  V4 ,  ERR) 

MAIN 

257 

IF  I  I  CODE  I  5)  .EQ.  1)  V5  *  Q!NI5,I5) 

MAIN 

258 

IF!  ICODEI  5)  .EQ.  2)  V 5  =  V5  ♦  QINI5,I5) 

MAIN 

259 

I F |  ICODEI  5)  .EQ.  3)  V5  =  QI  M5,15)/I1.  +  .2*QINI3,I3)**2) 

MAIN 

260 

G3  T3  47 

MA  IN 

261 

33 

IF I  I CODF ( 4)  .NE.  3)  GO  TO  34 

MAIN 

262 

GED>A  *  0  IN  I  4, 14) 

MAIN 

263 

GO  TD  32 

MAIN 

264 

34 

IF| ICODEI 5)  .EQ.  2)  GOTO  2001 

MA  IN 

265 

IFI ICODEI 51  .EQ.  3)  V5  =  QI  N( 5 , 1 5 ) /1 1. ♦ . 2 *QI  NI 3 , 1  3 ) **2 ) 

MA  IN 

266 

V4  *  QINI4,  14)*RRR*V5*2.27E-8*I  V5 ) ♦*! 1 . 5) 7  I V3 *SQKT  I GAMFS *RRR*V5 >*  MAIN  267 
1  IV5M98.6)  I  MAIN  268 

GO  TD  47  MAIN  269 


ICODEI  3)  =  2  SECTION  **** 

MA  IN 

270 

35 

IFI  I  CODF  I  4)  .NE.  1)  GO  TO  37 

MAIN 

271 

IFI ICODEI 5)  .EQ.  2)  GO  TO  2001 

MAIN 

272 

IF  I  I  CODE  (  5 )  .EQ.  3)  GO  TO  2000 

MAIN 

273 

36 

CAL.  FLTSPOI IC0DEI3) ,  01 NI 3 , 1 3)  , V3  , VK, VM, VI , VMI , V4 , V5 ) 

MA  IN 

274 

IFI ICODEI 5)  -  3)  47,38,38 

MA  IN 

275 

37 

IFI ICODEI 4)  .NE.  2)  GO  TO  39 

MA  IN 

276 

GF1PA  *  QINI  4, 14)/(QIN(4,I  4  )  /2.  084482E7  ♦  l.) 

MAIN 

277 

361 

CAL.  ATM02  IGEOPA,  0.,V5,V4  ,ERP) 

MAIN 

278 

IF ( I  CODE I 5)  .EQ.  1)  V 5  -  QI  NI 5, 1 51 

MA  IN 

279 

IF  1  ICODEI  5)  .EQ.  2)  V5  =  QINI5,I5)»V5 

MAIN 

280 

IFI  ICflDFt  5)  .NE.  31  GO  TO  36 

MAIN 

281 

KT  *  0 

MA  IN 

282 

GD  TD  36 

MAIN 

283 

38 

TTF  *  V5*I 1 .  ♦  .2*V34*2)-0l  NI5,I 5) 

MAIN 

284 

SAW 5  *  V5 

MAIN 

285 

CALL  ITRATE  I  V5,  TTF,  0.,  KT) 

MAIN 

286 
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IF(ADS(TTF)  .IT.  0011  GO  TCI  47 
IF  1 < T  .GT.  251  GO  TO  2007 

IFISAVV5  - V5  .GT.  0.1  V5  *  A  MAXI  I V5 •  .8*SAVV5» 
IFISAVV5  - V  5  .IT.  0.)  V5  =  AMI N1 I  V5 »  l.2*SAVV5l 
IF ( <  T  .FQ.  1)  V5  =  l . 01*V5 
GD  TD  38 

39  IF C  I C3DF( 41  .NF.  31  GO  TO  2000 

GED>A  *  0 1 N ( 4*14) 

GD  TD  361 

47  IF  (  ICQDEI  71  .1  E  .11  GO  T049 
IF  I  ICOOEI  71  .GF  .3)  GO  T048 
CALL  XTRP  I V3  ,V7,0. , IOC  072  1 
GD  TD  49 

48  CALl  XTRP  ( V3 , V7» V6 * IDC073) 

49  IF  I ICODEI 81.LE.il  GO  TO  50 
CAL*  XTKP  (  V6,V8,0.  ,  I0C0821 

50  IFIMT.GF.4I  GO  TO  127 

IF  (  IC0DFI9I  .GE.3J  GO  TO  66 
IF! ICODFI 91 .LE  .11  GO  TO  54 
CALL  XTRP  (  V3,V9,0.  ,10C0921 

54  IF  (ICUOEI10l.LF.il  GO  TO  56 

55  CALl  XTRPI  V9,V10»0.  >1001021 

56  IF  (ICOOEUll.LE.il  GO  TO  58 
CALl  XTRPIV9, Vll.O.  .I0C1121 

58  CAL*  XTRP(V10»V58,0. *F I G  5 1 

CAL.  XTRP(Vll,V59,0. .RCRTCDl 
V60=AMAX1( V59,V58  l 
A  *  F  3(  V601 
IF  (MT.ME.il  GC  TO  64 
IF  ( V7.GF.F3<  VeO)  1  GO  TO  64 
V60  *  F41V60.V71 

64  V  64  =  V9* V60 
GD  TD  153 

66  IF  ( IC00E(9».EQ.3>  GO  TO  67 
CALl  XTKP  ( V3,V9,0. , IDC094) 

67  IF  I  ICOOF( 101  .GE.21G0  TO  94 
IF  (  ICOOE(  111  .GE.21G0  TO  79 
CAL*  XTRP  (V1C«V68.0.«F(G5I 
CAL.  XTRP  (  V11.V69.0..RCRTGD1 
V70*AMAXl( V68.V691 

V60*  V  70 

A  =  F  3(  V  701 

IF  ( M  T  .NE.il  GO  TO  76 

IF  ( V7.GE.  F3(  V7011  GO  TO  76 

V 70*  F 41  V  70.  V7 1 

V60*  V  70 

76  V76*  V  9/V  70 

V64=  V  9 
V9=V76 
GD  TD  153 

79  V79*  V  9 
KDNtf*  0 

80  CAU  XTRP(V79.Vll»0.  .I0C1121 
CALL  XTRPI VII.V81.0. .KCRTCDl 
V82*  V  79*V8l 

CAL.  ITRATI  1  V79.1V9-V821/V9.0.0,  AM,  30  ,-7D  »3,K0NV  1 
IF  (<0NV-2)  8C, 84, 2003 
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*4  CALI  XTRP1V10,  V84,0.0,FIG5I 
V85*  AMAXil  V81,V84> 

V60«  V  85 
A  *  F  3(  V85I 
IF( NT  .NE.  1)  GO  T3  91 
IFIV7  .GE.F3(  V 65)130  TO  91 
V85=  F  4(  V85,  V  7  I 
V60*  V85 
91  V91*  V9/V85 
V64*  V9 
V 9*  V  9 1 
G3  T 3  153 

94  IFIICOOEIllI  .GE.  2)  GO  TO  112 
KONIV*  0 
V96*  V  9 

97  CALL  X  TRP  (  V96,  V  10*0.  0, 1  DC  102  I 

CALL  XTRPI  V10,V98,0.0,FIG5) 

V99*  V96*V98 

CAL.  ITRATI  I  VS6,(V9-V99)/V9,0.  ,AM,30,-73  ,3,K0NV) 

IF  UONV-2)  97,101,2004 
101  CALL  XTRPI Vll,VlOl, 0.0, RCRTCD) 

Vi 02*  AMAXK  V96,V101 ) 

V60*  V 102 
A  *  F3IV102) 

IFINT.NE.  II  GO  TO  108 
IF  ( V  7  .GE.F3I  V102IIGO  TO  108 
V 102*  F4(  V 1 02  ,  V7I 
V60*  V 102 
108  V 108*  V9/V102 
V64*  V9 
V 9*  V  108 
G3  T3  153 
112  V 1 12*  V9 
X3NV*  0 

113  CALL  XTRP  I  V112  ,  VI  0,0.0, 1  DC  1 02) 

CAL.  XTRPI VIO,  V114,0.0,F!35I 
CAL.  XTRPI  V112,VU, 0.0, 103112) 

CALi.  XTRPI  Vll,VU6, 0.0, RCRTCD) 

VI 17*  AMAXK  VU4,VU6I 
A  *  F  31  V 1 1 7) 

IF!  NT  .ME.  1)  GO  T3  121 
IFIV7  .GE.F3I  V117HG0  TO  121 
V 1 17*  F4I  V 1 1  7,  V 71 
121  V121*  V 1 12* VI 1 7 

CAL.  ITRATI  I  Vll2,I  V9-V12K /V9,0.  ,AM,30 ,-70,3 , KONV I 
IF  I  <QNV-2 I  113,123,2005 
123  V60*  V  11 7 

V64*  V  9 
V9«  V 112 
G3  T3  153 

127  IF  I  1  CODE! 9 ) . GE.3)  GO  TO  136 
IF  I  IC00EI9)  .LE.l)  GO  TO  130 
CAL.  XTRP  I  V3  •  V9,  0.  ,  IOC 092) 

130  IF  I  ICOOFI 11)  .LE.l)  GO  TO  132 
CALL  XTRP  C V9,V11,0. .I0C112I 
132  CALl  XTRP  I  VU,V132,0.,FG2181) 

V60«V  132 
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MAIN  387 
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V64*  V9*V132 
GO  T 0  153 

136  IF  (  IC00EI9I.EQ.3I  GO  TO  138 
CAL.  XTRP  (  V  J,  V9,0.  » IOC 094) 

138  IF  I  ICOOFI 11)  .LE.ll  GO  TO  148 
V I  39=  V9 

KONV*  0 

139  CALL  XTRP  C  V 1 39,  VI  l  ,0.  . I 03  1 121 
CAL.  XTRP  (  Vll,VI4l,0.tF32L81» 

V 142*  V 139*V 141 

CAL..  ITRATl  (  V 139,1  V9-V142I  / V9, 0.  ,AM, 30,-70, 3* KONV 1 
IF  |<0NV-2)  135,144,2005 
144  V60*V141 

V64*  V9 
V9*  V  1  39 
GO  T3  153 

148  CALL  XTRP  (  Vll,V148,0.,FG218ll 
V149* V9/V148 
V60s  V 148 
V64*V9 
V9*  V  1 49 

153  IF  (  ICOOEI 121  .GE.41  GO  TO  157 
IF  (  ICOOEI 121  .LE. 2)  GO  TO  158 
CALl  XTRP  (  V9, V12,0. ,IOC 123 ) 

G3  T3  158 

157  V  1 2*  AEATMN 

158  IFIV12.NE.1.  AND.  (NT.LE.l  .OR.  NT.  EQ.  41  I  GO  TU  2008 
V 1 58*  V12AV9 

IFIICOOEI13I.LE.il  GO  TO  161 
CAL.  XTRP  1  VI 5 1, V13 , 0. , IOC l 321 
161  IF  I  ICOOEI 141  .IF. II  GO  TO  163 
CALL  XTRP  (  Vl5e.Vl4,0.,IO:i42I 
163  IF  I ICODEI 151 .LE.ll  GO  TO  165 
CALL  XTRP  l  V15t,Vl5,0.  ,1031521 
165  IFl ICOOEI 161 .LE.ll  GO  TO  167 
CAL*.  XTRP  IV15C«V16,0.  ,ID3162) 

167  IF  INT.LT.4t  GO  TO  168 

IF  1  I  CODE! 22 1  .LE.  II  GO  TO  1671 
CALL  XTRPIV9,  V22.0.  .I0C222I 
1671  AEP  *  VI  58/CO  SI  ALPHA  P*R  AO  I  **2 
R>B  *  SQRTIAPB/PII 
LR  =  V22*DN 

RP  *  LPOTANI ALPHAP*RAU! 

ROT  a  RP  ♦  RPB 
APT  *  P I  *RP  T**2 
V 168  *  AEP  ♦  APT  ♦  Vl3*Vl 58 
G3  T3  169 

168  V 168*  2.* I  V 158^ V13*V1  581 

169  IF  UC00EU71.LE.il  GO  TO  171 
CALL  XTRP  I  V16F,Vl7,0.,I0:i72l 

171  IF  I  ICOOEI  18)  .NE. 21  GO  TO  173 
CALL  XTRP  l  Vl6£,V18,0.,I0;i82l 
173  IF  lIC00Ell9l.LE.il  GO  TO  175 
CALl  XTRP  I  V16E,V19,0.  »I0C192) 

175  IF  I  ICOOEI 201 .LF. 1)  GO  TO  185 
IF  |  ICOOEI  201  .GE. 4)  GO  TO  183 
IF  I  ICOOEI  201. EQ. 31  GO  TO  180 
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CAL.  XTRP  (  V3 »V20*0. • I  DC  202)  MAIN 

G3  T3  185  MAIN 

180  VI 80  *  V4*V3*SQRTI1.40*RRR*V51*(V5*198. 61/(2. 27E-8*IV5»**ll. 511/  MAIN 
1(RR**V5»  MAIN 

CALL  XTRP  (  V3»  V20,V  1 80, 1 DC2 03 1  MAIN 

G3  T3  185  MAIN 

183  TAW*  V5*( 1* 2*.89*V3**2)  MAIN 

T>Rl  =  V  5*(  l  •  ♦  .035*V3**2*.  45*1  TA  W/ V5  -l  •  }  1  MAIN 

LEFF  =  QINI  20»  I20I*0M  MAIN 

ANU>  =  2.27E-€*TPU  **l .  5/ (  TPR I  *198 . 5 )  MAIN 

RHO  *  GRAV*V4/(RRR*V5)  MAIN 

UFS  =  V3* S3R  T I  GAMF  $*RRR*V51  MAIN 

RH0a  =  GRAV*V4/IRRR*  TPRI  I  MAIN 

REP  =  L£FF*RHOP*UFS/(  AMUP*3RAV1  MAIN 

AMU*  2.27E-8*V5  **l. 5/1  V5* 198. 61  MAIN 

RE  THE  T*AMUP  /  A  ML*  .044*REP  /IAL0G101RFP  1-1. 51**2  MAIN 

V20*  GRA  V*R  E  THET*AMl)/I  RHG*UF  S*D  Ml  MAIN 

185  IF( (CODE! 21 ) . LE •  1 )  GO  TO  187  MAIN 

CALL  XTRP  I  V15E.V21  »0.  ,10:2121  MAIN 

187  IF  (NT.LE.2I  GO  TO  204  MAIN 

IF  (\IT.GE.4J  GO  TO  204  MAIN 

IF  (  ICOOE(22l  .LE.ll  GO  TO  191  MAIN 

CALL  XTRP  (  V9, V22,0.  ,IOC222  1  MAIN 

191  IF  (  IC00EC231  .GE.3I  GO  TO  196  MAIN 

Q3Q*  1  •  MAIN 

IF  (  ICOOEI  231  .LE.ll  GO  TO  195  MAIN 

CALL.  XTRP  (  V3,  V23,0.  ,IDC2321  MAIN 

195  G3  T 3  199  MAIN 

196  030*2.  MAIN 

IF  (  ICOOEI  231  .E0.31  GO  TO  199  MAIN 

CAL;.  XTRP  I  V3.V23.0.  ,1002341  MAIN 

199  IF  (  ICOOEI  241  .LE.ll  GO  TO  204  MAIN 

CAL.  XTRP  I  V6,  V24«0.  ,100  242  1  MAIN 

204  AB  *  Vl3*V15e  MAIN 

AWF  *  AWFAM4AH  MAIN 

LMB  *  LMBOM*DM  MAIN 

WSOWR  l  *  0.  MAIN 

PT  Sa  TP  =  0.  MAIN 

IF  (  NT  .NE  .3 1  GAM  S  *  V8  MAIN 

QNODEL  =  (CODE  (6)  MAIN 

CON  *  V60  MAIN 

N3ZERR*0  MAIN 

IFINT  .LE.  21  CALL  NOZZLE ( V9, V64 ,V12 ,V8 ,V7  ,QMOOFL , NT ,FL,  CON,  CT,  MAIN 

1  flag,nozerr  ,  TIO,: S,XMGM,0 TIO,A,XMEXI T)  main 

IFfNOZERR  .NE.  0.1  GO  TO  217  MAIN 

V03  *  V12/V22  MAIN 

IFINT.  F3.  31  CALL  E  JEC  TR I  V9*V22  ♦  V64  ,VCJO,  1 ./ V22,  V  7,  V23,  QQO,  V  8 ,  GAMSMA  IN 

1,  V  24  «CDN«:T«W  S0WP1 ,  PTSPTP  ,Fl  A3  ,  NOZEPR  ,  LEX  P,CT  1 0,XM0M,  QMOOEL  ,  MAIN 

2  CS,T  10,  XMEKIT1  MAIN 

IFIN3ZERR  .NE.  0.1  GO  TO  217  MAIN 

IFINT  .GE.4J  CALL  NOZPLGI V9 , V12 , LP ,ALPHAP ,  APB, V9 , V7 ,CDN, CT , FL AG,  MAIN 

1  N3ZERR,  T10,CS,QM03EL  ,  V3,0  Tl  0,  XMOM,  ATMI  N ,  ATMAX ,  X  MEX  IT  I  MAIN 

IFIN3ZERR  .NE.  0.1  GO  TO  217  MAIN 

QFS=GAMFS/2.*VA*V3**2  MAIN 

AMB  *  AMBAM *A M  MAIN 

CALL  AFTENOI  V3,0FS,V4,V5,  MAIN 

i  V64,V158,AB,NT,VB,V7,AMB  , AM.LMBOM, ISO, IT,  MAIN 
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1  IMSF,V18,  V15,V16,V14,V20,AWEAM,  V21 ,  AWI N3 ,V19 »V17 » 

3  DBT  P»DBTF*  OB*  OT  « 

2  C0BTP,CDBTF,CCB,C3T,CTMT3,AETERR,CTID,XM0M,V9,TID,CT,TMD,  IMST, 

5  ATM IN,ATMA X, XMEXI T,GAMS) 

IF ( AF  TERR  .NF  •  0.)  GO  TO  21  7 
IFUCOOE  (121. IF. 3)  GO  TO  216 


2  l  A 


2000 

2500 


IF  (FlAGQ.EO.l.)  GO  TO  216 
ITMD*  I  TMD*  l 

V209  *  AHAX1I V209,  TMOI 
IF ( V209  .EO  •  TMD)  V210  =  VI  2 
IF  (  I TMD.GT .21)  30  TO  2 1* 

V12*  V 12*(>AEAT 
GO  TO  158 
V12*V210 
FL  AGQ=  1. 

GO  TO  158 
WR  IT E  (6,25001 

FORMAT (  *ODI MENSIONAL  FLI3HT  SPEED  INPUT  REQUIRES  AMBIENT 
2E  AMD  TEMPERATURE  INPUTS*) 

GO  TO  217 
2001  WRITE  (6,2501) 

2501  FORMAT!  *0N0N-ST4NDAR0  TEMPERATURE  INCREMENT  MAT  BE  USEO 
1H  ALTITUDE  INPUT  FOR  PRESSURE*) 

GO  TO  217 
WRITE  (6,2503) 

FORMAT  ( *0A  T=  V79  WILL  NOT  CONVERGE*) 

GO  TO  217 
WRITE  (6,2504) 

FORMAT  (  *0A  T*  V56  Will  NflT  CONVERGE*) 

GO  TO  217 
WRITE  (6,25051 

FORMAT(*OAT*  V112  Will  NOT  CONVERGE*) 

GO  TO  217 
WRITE  (6,2507) 

FORMAT  (  *  INPUT  TEMPERATURE  I  TF  RATI  UN  WILL  NOT  CONVERGE*) 

GO  TO  217 
WRITE  (6,250ft) 

FORMAT  (  *0  NON-UNITY  DIVERGENCE  AREA  INPUT  FOR  NON-DI V ERGI IS 

1ZLE*  ) 

GO  TO  217 
OUT  CASE  ANSWERS 
IF  ( L  PR  I  NT  .NE.  2)  GO  TO  2160 
WR ITE( 6, 39991 
LPRINT  =  0 
WRITE  (6,3990)  TITLE 
GO  TO  2161 

WRITE  (6,4000)  TITLE 
AF  x  AM- V 168 
AFMET  =  AMB-V168 
IFIAG*FLAG 
ISDX* 100 

I F (  IS0.EQ.4)  I  SOX*  109 

WRITE  (6,4001  )  ( 003 ( I S0*9-9»L > ,L*1 ,9) , ( DOB ( IT *9*2 7*L ) ,L» 1, 9 )  , 


MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MAIN 
PRESSURMAIN 
MAIN 
MAIN 
MAIN 

ONLY  WITMAIN 
MAIN 


2003 

2503 

2004 

2504 

2005 

2505 

2007 

2507 

2008 

2508 


C  PUT 
216 


2160 

2161 


MA  IN 
MAIN 
MA  IN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
NOZMA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MA  IN 
MAIN 
MAIN 
MA  IN 


1  IDD8(NT*9*45*LI,L*l,9),(00B(  ISDX-UU  ,L«1,9)  ,  (DOB  I  I  CODE  (6  l*9*108*MAIN 

2  L  ) ,  L  *  1,  9)  MAIN 

WRITE  (6,4002)  MAIN 

WRITE  (6,4003)  V3,  A  Wl  NG  ,(OOB2  ( I  FLAG  *9*L-9  )  ,L*l ,  7  I  ,OBTP  ,V4,AM,  MAIN 


515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 


***CONT INUING 
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I  V9»  08  TF  ,  V5,  AMB,V64,0B  ,LMB,V158.DT  ,AWF,V8 
MRITE(6,4004)  V6,CS,CD8TP  ,  V7  ,CDN,CDBTF  ,CT, AB.WSQWPl.CDB, 
l  CTMTO.AF.PTSPTP.CJT  ,AFMET,V18  »l  MST 
IFIV3  .LT.  1.)  WRITEI6,40C5H00BIU1  ,J»l  ,41 
IF ( V 3  .GE.  1.)  WRITE (6,4005) (0081 (Jl  ,J*5,8> 

LPR I M  T  *  LPRINT  ♦  I 
217  CONTINUE 

3024  C3MT INUE 
3023  CONTINUE 
3022  CONTINUE 
3021  C3NTINUE 
3020  C3NTINUE 
3019  CONTINUE 
3018  C3NTINUE 
3017  C3NTINUE 
3016  CONTINUE 
3015  CONTINUE 
3014  CONTINUE 
3013  CONTINUE 
3012  CONTINUE 
3011  CONTINUE 
3010  CONTINUE 
3009  CONTINUE 
3008  CONTINUE 
3007  CONTINUE 
2006  CONTINUE 
3005  CONTINUE 
3004  CONTINUE 
3003  CONTINUE 

READ! 0, 1010 ) I NO, I  VAR  Y 
I F I IND.FQ.999)  STOP 
DO  3025  I  »  l,  22 

3025  NVARYI II  =  0 

IF! IND  .EQ.  8 E  )GQ  TO  6 
IF (  I N 0  .EQ.  991G0  TO  5 
IVARY  *  19 
GO  TO  5 
9999  ST3» 

1000  FORMAT! 18A41 
1010  FORMAT!  313,  6F6.01 
1015  FORMAT (  313,  10F6.0I 
1020  F3RMAU4F6.0) 

1030  FORMAT!  12F6. 01 
1040  F0RMATI6X, 22(31 

3998  FORI  A  T  I  1H  ,T21,18A4) 

3999  FORI A T  I  lHil 

4000  FORI A  T  C 1H0, / , /, T21 , 18A4I 

4001  FORMAT  I  1H0,  TIO,  *CONFIGURA TION*,  /,T13,  5 (9 A4 ,/ ,T 131 1 

4002  FORI  A  T  I  IHO,  T10»  *FUGHT  CONDITIONS*,  T37,  *FIXED  AIRFRAME*, 

1  T 65,  *N0ZZLE  PARAMETERS*, T96,  *AFT-END  DRAG* 

4003  FORMAT  I 1H  ,  TIO,  *MACH  N0*,3X,  F7.4 ,5X ,*WI NG  AREA*,  7X ,  F7.2.5X, 

1  7A4,  3X«  *08  T  PRESS*, 6X,  F7.l,/,1H  ,  T10,*P  AMB,PSF*,6X,  F7.1, 

2  5X,  *MAX  AREA*,  8X,  F7.3,  5X,  * THROAT  GE OM  AREA*,  3X,  F7.4,  5X, 

3  *DBT  FRICT*,  6X,  F7.1,/,H  ,T10,*T  AM8  ,R*  ,  8X  ,F7 . 1 ,5X  ,*M.  8.  ARE  A* 

4  8X,  F  7.3,  5  X,  *THROA  T  FLOW  AREA*,  3X,  F7.4,  5X,  *0  BAS  E*,  9X,  F7.  1, 

5  IH  , T 37,  *INIT.BT. LENGTH*,  2X.F7.3,  5X,  *EXIT  AREA*,10X .F7.4.5X, 

6  *0  TOTAL*,  8X,F7.1,/,1H  ,  TIO,  *PERFORMA  NCE*,  ISX,  *INIT.BT  AW  FT 


MAIN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MA  IN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MA  IN 
MA  IN 
MA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MAIN 
MA  IN 
MA  IN 
MAIN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MAIN 
.MAIN 
/MA  IN 
MAIN 
*MA  IN 


572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 
59  3 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 


•  **CONT  INJ ING 


IS 


7  ,  4X,F7.3,  5X»*GAMMA*,14X,F  7.4  I  MAIN  629 

4004  FIRM  A  T  (  1H  ,  TIC,  *P  S*,13X,F  7.4,  T65 , *CS*, 1 7X ,  F7 . 4 ,5X  ,  *CD8T  PRESS*MAIN  630 

1  *  4X »  F8.5,/,1H  ,T10,*PTJ/PAMB*,7X,F7.4,5X,*VARl  ABLE  AIRFRAME*,  MAIN  631 

2  1 IX*  *CDN* ,  UX,  F7.4,  5X,  *CDBT  FR  ICT*,4X  ,F8 .5  ,  /  ,  IH  ,riO,  *CT*,  MAIN  632 

3  13X,  F7.4,  5>»*BASE  AREA*,  7X,F7.3,5X,  *WSWP*»  I5X,  F7.4,5X,  MAIN  633 

4  *CD  BASE*,  7X,F8.5,/,1M  ,T1 0,*C  I  T-D  T)  *  ,8X  ,F7 . 4 ,  5X  ,*T  0T  AL  A  FRONTMAIN  634 
5AL*,  IX.F7.3,  5X,*PTS/PTP*,12X,  F7.4,5X,  *CD  TOr  AL*  ,6X  ,F8  .  5,  / ,  1 H  ,  MAIN  635 

6  T  37,  *METRIC  A  FR3N  TAL*,F 7 . 3  ,/ , IH  , T37 , *1  MSA* , 12X ,  F7.4,/,IH  ,  MAIN  636 

7  T  37,  *1 MST*,  12X,F7.4  )  MAIN  637 

4005  F3RMATIIH0,  TIC,  *ALL  ORAGS  FOR  TWO  NOZZLES*,/ ,IH  ,  TIO,  *  OR  AG  COEMAIN  638 
EFFICIENTS  REFERENCED  TO  WING  AREA*,  /,IM  ,  TU,  *ORAGS  ARE  FOR  AFTMA  IN  639 
2-ENO  AFT  OF  *,4A4,  /,  IH  ,  TIO,  *ALL  AREAS  ARE  IN  SQUARE  F EFT*  )  MAIN  640 

END  MAIN  641 

***ENO 
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•  ♦•BEGIM 


SUBROUTINE  ARE AS(  P TPOP*P TSP  TP  »S A  M, WSOWPl ) 

C3M3N  /ARE  A/GAMM  »3A  MMSfGAM  S»APOAT  «  ASOAT  *  QMP*  QMS 
PTS3P  *  PTPUP*PTSPTP 

ORP  =  S3R  T( 2  « /GAMM* (  PTPOP**(GAMM/GAM 1-1 •  I  ) 

CMS  *  SJR  T(  2»  /GAMMS*( P  TSOP**( GAMPS/GAMSI  -l  •  1 1 
BP  =  1.  ♦  GAMM/2.*QMP**2 
AS  8  1  •  ♦  GAMMS/2.*QMS 

AP3AT  =  l.  / (  W SOWP  l*  SQR  T(  BP/BSI  *QMP/QMS«-1  •  I 

AS3AT  *  1.  -  APOAT 

RETURN 

END 


AREASOOO 
ARE  AS  00  5 
AR  EAS010 
AREAS015 
AREAS020 
AREAS  025 
AREAS030 
AREAS  035 
AR  EAS  040 
AREAS045 
AREAS050 


♦  ♦♦ENO 
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••♦PEG1M 


SUBROUTINE  ATMC2(ALT,DELT,TAM,PAK,ERR) 

E^R  *  0 

ALUM  *  ALT*3C4.8E-6 
I F C  A L  TKM  .GT.  11.130  TO  10 
TAM  =  288.15  -  6. 5*A  LTKM 

PAM  =  2116. 22*<(288.  15-6.5*ALTKM)/288. 151  **5.255876 
G3  T3  AO 

10  P  (ALTKM  .GT.  20.)  GO  TO  20 
uH  216.65 

PAM  =  A72.685*EXPI-.  1 57688* ( ALTKM- 1 1.1) 

G3  T3  AO 

20  IF  (ALTKM  .GT.  32.)  GO  TO  30 
TAM  =  216.65  ♦  I ALTKM-20. ) 

PAM  =  11A.3A5*(216.  65/TAMI  **3A.  1 632 
G3  T3  AO 

30  IF  (ALTKM  .GT.  A7.1  GO  TO  60 
TAM  *  228.65  ♦  2.8*( ALTKM-32. I 
PAM  =  18.129  *  (228.65/TAM)  **12.20111 
AO  TAM  *  ( TAM* 1.8)  ♦  3F L T 
50  RFTJftN 
60  WRITEJ6,  1000) 

G3  T3  50 

1000  F3RMAT( IHO,  *A TMO  ROUTINE  LIMITS  EXCEEDED*  ) 

FMD 


AT  M02000 
ATM02001 
AT  M02002 
AT  M02003 
ATM02004 
AT  M02005 
AT  M02006 
ATM02007 
ATM02008 
AT  M02009 
ATM02010 
ATM02011 
ATM02012 
ATM02013 
ATM0201A 
ATM02015 
ATM02016 
ATM02017 
ATM02018 
ATM02019 
ATM02020 
ATM02021 
ATM02022 
ATM02023 


***  END 


■> 
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•••begin 

SIIBUUTINE  AFTENDlMO,Q,PO,TO,AJCD,AE,AB,NT,GAM,PTPFS,AMB  » AM, 

1  LMBOM, ISO* IT. IMSF . I  MSA . THE TAE » THETAM.OELXOM. THET DM. Art FAM. Art  T  AM, 

2  AMI  MG.DFL  A  AM,  LDM.DB  TP  »DBTF  .DB.DT  .CDBTP  .CDBTF .  COB ,  CDT  ,CTMT  D. 

3  AFTERR  ,CT  , XMOM, A T. TI D.C V, TMD  ,! MST , ATMI  N.AT MAX .ME .GAMS  I 

DIMENSION  K2MCU40)  .  K2M02I40)  ,  K6IMSTI149I  ,  K3THET  ( 261 

DIMENSION  < 41  M SIC  101  )  ,  K4IMS2I95I  .  K4IMS3I10II 

DIMENSION  < 4IM S4(  10 7)  ,  K4IMS5I95I  .  K41MS6I30) 

DIMENSION  K 5THMII  12 51  ,  K5THM2I93I  ,  K5TMM3I109) 

DIMENSION  K  ICVLK93)  , KICVSl  193) 

DIMENSION  ft  ICVC69) 

DIMENSION  K1CVL2I71)  ,  K1CVS2I93) 

DIMENSION  K1CVL3I  71)  ,  KICVS3193 ) 


REAL 

MO,  IMST  l.LDM  •  IMSF  .IMSA.l  MST, ME  ,K1CV  .KICVSl  .KICVLl 

PEA. 

ft  1CVS2 

,  K1C  VL  2  ,KIC  VS3 

,  KIC  VL3 ,K2 M01 , 

K2M02.K3THET 

real 

ft  41 M  S 1 

.K4IMS2 »K4I M$3 

,K4I  MS4.K41 MS5 

,  K4 1  MS  6 

real 

K5THM1 

♦  K5THM2.K5THM3 

, K6I  MST 

RE  Al. 

LMB » 

LMBDM, LL, MU.MUP ,LEF E ,LVAR ,  LT 

DATA 

K1CV  / 

5. ,  1.  , 

0. ,  16.  , 

4.  , 

A 

14.. 

0. ,  0.  , 

0.  ,  . 002 , 

-.00075,  .004, 

-.0013, 

B 

.006, 

-.0018,  .008, 

-.0022,  .01, 

-.0025, .012, 

-.0027, 

C 

14., 

•  6,  0.  , 

0.  ,  .  002  , 

-.00075, .004, 

-.0013, 

D 

.006, 

-.0018, .008, 

-.0022, .01  , 

-.0025, .012, 

-.0027, 

E 

14., 

•  8,  0. , 

0. ,  .002 , 

-.0014,  .004, 

-.0024, 

F 

.006, 

-.003,  .008, 

-.00335, .01, 

-.00355, .012, 

-.0036, 

G 

14., 

.9,  0. , 

0.  ,  . 002  , 

-.0014,  .004, 

-.0024, 

H 

.006, 

-.0032, .008, 

-.0039,  .01, 

-.0044,  .012, 

-.0048/ 

DATA 

KICVLl 

/  5.,  1., 

0.,  22., 

4.  , 

A 

20., 

0.  ,  0.  , 

0. ,  . 002  , 

.0008,  .004, 

.0016, 

a 

.006, 

.0022,  .008, 

.0022,  .01, 

.0019,  .014, 

.0012, 

c 

.018, 

.0007,  .022, 

.0002,  .03, 

—  .  0006  , 

D 

20., 

.6,  0.  , 

0.  y  .002  , 

.0008,  .004, 

.0016, 

E 

.006, 

.0022,  .008, 

.0022,  .01, 

.0019,  .014, 

.0012, 

F 

.018, 

.0007,  .022, 

.0002,  .03, 

-.0005, 

G 

20., 

.  8 ,  0. , 

0. ,  ,002 , 

.0014,  .004, 

.0027, 

H 

.006, 

.003  6 ,  .008, 

.0038,  .01, 

.0033,  .014, 

.0022, 

I 

.018, 

.0013,  .024, 

.0001,  .03, 

-.0008, 

J 

20., 

•  9,  0.  , 

0.  ,  . 002  , 

.0013,  .004, 

.0034, 

ft 

.006, 

.0045,  .008, 

.0049,  .01, 

.0043,  .014, 

.0028, 

L 

.018, 

.0016,  .024, 

.0001,  .03, 

-.0012  / 

DATA 

KICVSl  / 

5.  ,  1.  , 

0.  ,  22.  , 

4.  , 

A 

20., 

0. ,  0.  , 

0.  ,  .  004  , 

-.0005, .008, 

-.0015, 

B 

.012, 

-.0025, .016, 

-.0031  ,.02, 

-.0035, .022, 

-.0037, 

C 

.024, 

— . 0038, . 026, 

-.  0039, .028, 

-.004, 

D 

20., 

•6,  0. , 

0. ,  . 004  , 

-.0005, .008, 

-.0015, 

E 

.012, 

—  .  002  5 , .  01 6 , 

-.0031,  .02, 

-.0035, .022, 

-.0037, 

F 

.024, 

-.0038, .026, 

-.0039,.  028, 

-.004, 

G 

20., 

.8,  0. , 

0. ,  . 004 , 

-.0003,  .008, 

-.001, 

H 

.012, 

-.0024, .016, 

-.0038, .02, 

-.0047,  .024, 

-.0054, 

I 

.02  8, 

-.0061, .032, 

-.0068, .036, 

-.0074, 

J 

20., 

•  9,  0.  , 

0.  ,  . 004 , 

.0002,  .008, 

-.0002, 

ft 

.012, 

-.0024,. 016, 

-.0042,  .02, 

-.0054,  .024, 

-.0064, 

L 

.028, 

-.0074, .032, 

-.0084, .039, 

-.01  / 

DATA 

KICVL2  / 

5. ,  1. , 

0.  ,  22.  , 

3., 

A 

20., 

0. ♦  0.  , 

0.,  .002, 

— «  0002  ,  .004 , 

-.0004, 

•••CONTINJING 
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AFTENOOO 
A FT EN 00 1 
AFTEN002 
AFT6N003 
AFT EN 004 
AFTEN005 
AFT  EN 006 
AFT  EN 00 7 
AFTEN008 
AFT  EN  009 
AFTEN010 
AFTEN0I1 
AFTEN0I2 
AFT  EN  013 
AFT  EN  0 14 
AFT EN 01 5 
AFT  EN016 
AFTEN017 
AFTEN01B 
AFTEN019 
AFTEN020 
AFT  EN 021 
AFTEN022 
AFTEN023 
AFTEN024 
AFTEN025 
AFT  E.N026 
AFT  EN027 
AFTEN028 
AFT  EN029 
AFTEN030 
AFTEN031 
AFT  EN032 
AF  TEN  033 
AFTEN034 
AFTEN035 
AF  T  EN  036 
AFT  EN 03 7 
AFTEN038 
AFT  EN  039 
AFTEN040 
AFT  EN041 
AFTEN042 
AFTEN043 
AFTEN044 
AFTEN045 
AF  TEN  046 
AFTEN047 
AFTEN048 
AFT  EN049 
AFTEN050 
AFTEN051 
AFTEN052 
AFTEN053 


R 

.006* 

-.0007,.  008, 

-.001  , 

.01  , 

-.3012, .014, 

-.0017, 

AFT  EN054 

C 

.018, 

-.0022,.  022, 

-.0026 

.025, 

-.3029, 

AFTEN055 

0 

20., 

.  6  ,  0.  , 

0.  , 

.002, 

-.3002, .004, 

-.0004, 

AFTEN056 

E 

.006, 

-.0007,  .008, 

-.001, 

.01  , 

-.3012 ,.014, 

-.0017, 

AFTEN057 

F 

.018, 

-.0022,.022, 

-.0026 

.025, 

-.0029  , 

AFTEN058 

G 

20., 

•  9,  0.  , 

0.  , 

.004, 

-.3017, .008, 

-.0037, 

AFTEN059 

H 

.012, 

-.0053, .016, 

-.0065 

.02  , 

—.076,  .024, 

-.0086, 

AFT  EN060 

1 

.02  8, 

-.0096, .032, 

-.  0104 

.036, 

-.0112  / 

AFTEN061 

DATA 

KICVS2  / 

5.,  1., 

0.  , 

22.  , 

4.  , 

AFT EN 062 

A 

20., 

0. ,  0.  , 

0.  , 

.004, 

-.3031 ,.008, 

-.0007, 

AFT  EN063 

B 

.012, 

— . 00 12, .016, 

-.0016 

.02  , 

-.302,  .022, 

-.0022, 

AFTEN064 

C 

.024, 

-.0024,. 026, 

-.0026 

.028, 

-.3028, 

AFTEN065 

0 

20., 

.6,  0.  , 

0.  , 

.004, 

-.3031 ,.008, 

-.0007, 

AFT  EN066 

6 

.012, 

-.0012,. 016, 

-.0016 

.02, 

-.332,  .022, 

-.0022, 

AF  TEN  06  7 

F 

.024, 

-.0024, .026, 

-.0026 

.028, 

-.3028  , 

ATT  EN068 

G 

20., 

•  8,  0. , 

0.  , 

.002, 

.3301,  .004, 

.0002, 

AFT  EN  069 

H 

.006, 

0. ,  . 008 , 

-.0006 

.012, 

-.3019 ,.016, 

-.0028, 

AFTENO  70 

I 

.02, 

-.0036,. 024, 

-.0043 

.028, 

-.3049, 

AFT  EN 071 

J 

20. , 

•  9,  0.  , 

0.  , 

.002, 

0. ,  . 004 , 

0., 

AFTEN072 

K 

.006, 

-.0003, .008, 

-.0009 

.012, 

-.0023, .016, 

-.0035, 

AFTEN073 

L 

.02, 

-.0045, .024, 

-.0054 

.028, 

-.3363  / 

AFT EN 074 

DATA 

KICVL3  / 

5.,  1., 

0.  , 

22.  , 

3.  , 

AFTENO  75 

A 

20., 

0.  ,  0.  , 

0.  , 

.004, 

—.0332 ,.008, 

-.0005, 

AFT  EN 076 

B 

.012, 

-.0008, .016, 

-.001  , 

.02  , 

-.3013, .022, 

-.0015, 

AFTEN077 

C 

.024, 

—  . 00 16,. 02  6 , 

-.0018 

.028, 

-.3019, 

AFTEN078 

0 

20., 

.6,  0. , 

0.  • 

.004, 

-.0002*. 008, 

-.0005, 

AFT  EN079 

E 

.012, 

-.0008, .016, 

-.001, 

.02, 

-.3013 ,.022, 

-.0015, 

AFT  EN080 

F 

.024, 

-.0016, .026, 

-.0018 

.028, 

-.3019, 

AFTEN081 

c. 

20., 

.9,  0., 

0.  , 

.004, 

.3303,  .006, 

.0002, 

AFT  EN 082 

H 

.008, 

-.0007, .012, 

-.0023 

.  01 6 , 

-.3035, .02, 

-.0044, 

AFTEN083 

1 

.026, 

-.0053, .032, 

-.006, 

.04, 

-.3065  / 

AFTFN084 

DATA 

K1CVS3  / 

5. ,  1.  , 

0.  , 

22.  , 

4.  , 

AFTEN085 

A 

20., 

0.  ,  0.  , 

0.  , 

.002, 

-.3001 ,.004, 

-.0002, 

AFT  EN086 

B 

.006, 

-.0004,. 008, 

-.0006 

.012, 

-.3311 ,.016, 

-.0016, 

AFT  EN087 

C 

.02, 

-.0021, .024, 

-.0026 

.028, 

-.3033, 

AFTEN088 

0 

20., 

•  6,  0.  , 

0.  , 

.002, 

-.3031 ,.004, 

-.0002, 

AFTEN089 

E 

.006, 

-.0004,  .008, 

-.0006 

.012, 

— . 001 1 ,.016, 

- .00 16, 

AFT  EN090 

F 

.02, 

-.0021, .024, 

-.0026 

.028, 

-.3033  , 

AFT  EN 09  l 

G 

20., 

. 8 ,  0. , 

0.  , 

.002, 

.3304,  .004, 

.0006, 

AFTEN092 

H 

.006, 

.0007,  .008, 

.0003, 

.012, 

-.3009, .016, 

-.0019, 

AF  TEN  09  3 

1 

.02, 

-.003,  .024, 

-.0041 

.028, 

-.0052, 

AFT  EN 094 

J 

20., 

.9,  0.  , 

0.  , 

.002, 

.3308,  .004, 

.0015, 

AFTEN095 

K 

.  006, 

.0019,  .008, 

.0011, 

.012, 

-.3035, .016, 

-.0019, 

AF TEN 096 

L 

.02, 

-.0032, .024, 

-.0045 

.028, 

-.0057  / 

AFT  EN097 

DATA 

K2M01  / 

2.  ,  1 .  , 

0.  , 

36.  , 

AFT  EN 098 

♦ 

1.0, 

1.1,  1.1, 

1.1  , 

1*2, 

1.1, 

AFT  EN099 

A 

1.2, 

l.l,  1.3, 

.982, 

1.4, 

.932,  1.5, 

.86, 

AFT  EN 100 

B 

1.6, 

.85,  1.7, 

.88, 

1.8, 

.936,  1.9, 

.98, 

AFT  EN 10 1 

C 

2.0, 

1.0,  2.1, 

1.0, 

2.2, 

1.3,  2.3, 

1.0, 

AF  TEN  102 

D 

2.4, 

1.0,  2.5, 

1.0, 

2.6, 

1.0  / 

AFTEN103 

OATA 

K2M02  / 

2.  *  l. , 

0.  , 

3b.  , 

AFTEN  104 

♦ 

1.0, 

1.3621,1.1, 

1.3621 

,1.2  , 

1.3621, 

AFT  EN  105 

A 

1.2, 

1.3621,1.3, 

1.20, 

1.4, 

1.12,.  1.5, 

1.067, 

AFT  EN 106 

B 

1.6, 

1.0316,1.  7, 

1.012, 

1.8, 

1.00,  1.9, 

1.0, 

AFTEN 107 

C 

2.0, 

1.0,  2.1, 

1.0, 

2.2, 

1.0,  2.3, 

1.0, 

AFTEN 108 

D 

2.4, 

1.0,  2.5, 

1.0, 

2.6, 

1.3  / 

AFTEN 109 

OATA 

K3THET  / 

2.  ,  1 .  , 

0.  , 

22.  , 

AFT  EN 1 10 
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A 

0., 

0., 

2.  , 

.  006 , 

4. , 

.313, 

6  •  t 

•  019, 

AFTENlll 

ft 

8*  9 

.026, 

10., 

.0325, 

12.  , 

.039, 

14., 

.046, 

AFT  EM  112 

C 

16.  * 

.054, 

18.  , 

.  065  , 

20.  , 

.08 

/ 

AFT  EN  1 13 

DATA 

K4IMSI  7 

5., 

1.  , 

0.  , 

32., 

3., 

AFT EN 114 

A 

16.  t 

.15, 

-2.0, 

.052, 

-1.5, 

.355, 

-1.25, 

.056, 

AFTEN115 

ft 

-1.0, 

.059, 

-.75, 

.  063  , 

-.5, 

.368, 

-.25, 

.074, 

AFT  EN 1 16 

C 

0. , 

.080, 

14*0. , 

AFT  EN  117 

0 

16. , 

.34, 

-2.0, 

.085, 

-1.5, 

.091, 

-1.25, 

.096, 

AFT  EN 1 18 

E 

-1.0, 

.102, 

-.75, 

.110, 

-.5, 

.121, 

-.25, 

.1375, 

AFTENU9 

F 

0., 

.157, 

14*0.  , 

AFT  EN  120 

G 

30., 

.47, 

-2.0, 

.10, 

-1.5, 

.112, 

-1.25, 

.12, 

AFT  EN  121 

H 

-1.0, 

.129, 

-.75, 

.14, 

-.5, 

.152, 

-.25, 

.17, 

AFTENI22 

1 

0., 

.198, 

.25, 

.244, 

.55, 

.344, 

.55, 

.344, 

AFT  EN  123 

J 

.75, 

.291, 

1.0, 

.246, 

1.25, 

.216, 

1.5, 

.198  / 

AFTEN  i24 

DATA 

K4IMS2  / 

5., 

l.  , 

0.  , 

30.  , 

3., 

AFT  EN  125 

A 

12., 

.13, 

-1.8, 

.041, 

-1.5, 

.340, 

-1.0, 

.043, 

AFTEN  126 

B 

-.75, 

.044, 

-.5, 

.048, 

— .  3 , 

.351, 

16*0., 

AFTEN127 

C 

12., 

.30, 

-1.75, 

.072, 

-1.5, 

.375, 

-1.0, 

.085, 

AFTEN  128 

D 

-.75, 

.094, 

-.5, 

.105, 

-.3, 

.118, 

16*0., 

AF I EN 129 

E 

28., 

.41, 

-1.7, 

.  08 , 

-1.5, 

.083, 

-1.0, 

.095, 

AFTEN 130 

F 

-.75, 

.103, 

-.5, 

.115, 

-.25, 

.144, 

0., 

.212, 

AFTEN 131 

G 

.25, 

.34, 

.38, 

.424, 

.38  , 

.424, 

.5, 

.40, 

AFT  EN 132 

H 

1.0, 

.295, 

1.25, 

.26, 

1.4, 

.24 

/ 

AFTEN 133 

OATA 

K41MS3  / 

5., 

l*  * 

0.  , 

32., 

3.  , 

AFTEN134 

A 

16., 

.12, 

-1.75, 

.038, 

-1.5. 

.037  , 

-1.25, 

.037, 

AFT  EN  135 

B 

-1., 

.038, 

-.75, 

.04, 

-.5, 

.043, 

-.25, 

.047, 

AFTEN  136 

C 

-.1, 

.05, 

14*0.  , 

AFTEN 137 

D 

16., 

.26, 

-1.75, 

.  061  , 

-1.5, 

.361 , 

-1.25, 

.063, 

AFT  EN 138 

E 

-1., 

.065, 

-.75, 

.069, 

-.5, 

.373, 

-.25, 

.079, 

AF  TEN  1 39 

F 

-  .  1 , 

.083, 

14*0.  , 

AFT  EN 140 

G 

30., 

.39, 

-1.75, 

.069, 

-1.5, 

.373, 

-1.25, 

.077, 

AFT  EN 14 1 

H 

- 1 . , 

.083, 

-.75. 

.09, 

-.5, 

.398, 

-.25, 

.116, 

AFTEN 142 

I 

0., 

.18, 

.25, 

.275, 

.47, 

.393, 

.47, 

.39  3, 

AFTEN  143 

J 

.75, 

.341, 

1  •  f 

.303, 

1.25, 

.27, 

1  .6, 

.229  / 

AFT  EN 144 

DATA 

K4MS4  / 

5., 

1  •  t 

0.  , 

34.  , 

3.  , 

AFTEN 145 

A 

12., 

.15, 

1 

I— 

• 

\n 

.075, 

-1.5, 

•  376 , 

-1.0, 

.08, 

AFT  EN 146 

B 

-.75, 

.084, 

-.5, 

.088, 

-.3, 

.092, 

20*0., 

AFT  EN  147 

C 

12., 

.34, 

-1.7, 

.  062  , 

-1.5, 

.353, 

-1.0, 

.066, 

AFT  EN 148 

D 

-.75, 

.07, 

-.5, 

.074, 

-.3  , 

.377, 

20*0., 

AFTEN  149 

E 

32., 

.47, 

-1.7, 

.04, 

-1.5, 

.04, 

-1.0, 

.045, 

AFT  EN 150 

F 

-.5, 

.052, 

-.35, 

.055, 

-.35, 

.355, 

-.25, 

.07, 

AFTEN 151 

G 

0., 

.115, 

.25, 

.177, 

.5, 

.256, 

.6  , 

.289, 

AFT  EN 152 

M 

.6, 

.289, 

.75, 

.258, 

1.0, 

.214, 

1.25, 

.179, 

AFTEN 153 

1 

1.4, 

.161 

/ 

AFTEN  154 

DATA 

K4IRS5  / 

5., 

1  •  , 

0.  , 

30.  , 

3., 

AFT  EN 155 

A 

14., 

.116, 

-1.65  , 

.045, 

-1.5, 

.345, 

-1.25, 

.047, 

AF  T  EN 156 

R 

- 1 . 0, 

.049, 

-.75, 

.052, 

-.5, .055, -.22 

, . 061 , 14*  0 . , 

AFT  EN 157 

C 

14., 

.20, 

-1.65, 

.064, 

-1.5, 

.364, 

-1.25, 

.  06  5 , 

AFTEN 158 

D 

-1.0, 

.068, 

-.75, 

.071  , 

-.5  , .075, -.25 

,.08,  14*0., 

AFTEN 159 

E 

28., 

.38, 

-1.78  , 

.  1  , 

-1.5, 

.133, 

-1.25, 

.  106, 

AFTEN  160 

F 

-1.0, 

.112, 

-.75, 

.119, 

-.5, 

.13, 

-.25, 

.  149, 

AFT  EN 161 

G 

0., 

.23, 

.25, 

.428, 

.5, 

.47, 

.5, 

.47, 

AFTEN  162 

H 

.75, 

.394, 

1.0, 

.345, 

1.32, 

.338 

/ 

AFTEN  163 

DATA 

K41MS6  / 

2., 

1.  , 

0.  , 

26.  , 

AFTEN  164 

A 

-1.75, 

.065, 

-1.5, 

.066, 

-1.25, 

.067, 

-1.0, 

.07, 

AFTEN 165 

B 

-.75, 

.075, 

-.5, 

.088, 

-.25, 

.112, 

0., 

.15, 

AFTEN  166 

C 

.25, 

.215, 

.  48 , 

.3, 

.  48  , 

.3, 

.75, 

.25, 

AFTEN  167 

84 
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1) 

1.0, 

.218  / 

DATA 

K  5T  Hft  1 

!  5., 

l.  , 

A 

28. » 

0., 

0.  , 

ft 

6,* 

.004, 

8.  , 

C 

14., 

-.049, 

16.  , 

f) 

22., 

-.125, 

24.  , 

E 

28., 

.6, 

0.  , 

F 

6. , 

.004, 

8.  , 

G 

14., 

-.049, 

16.  , 

H 

22., 

-.125, 

24.  , 

I 

28., 

.8, 

0.  , 

J 

6. , 

-.009, 

8., 

K 

14., 

-.075, 

16.  , 

l 

22., 

-.156, 

24., 

ft 

28., 

.9, 

0.  , 

N 

6. , 

-.009, 

8.  , 

3 

14.  , 

-.075, 

16.  , 

P 

22., 

-.156, 

24.  , 

DATA 

K  5THft2 

/  5., 

1  *  , 

A 

20. , 

0., 

2.  , 

B 

8*  t 

-.017, 

10. , 

C 

16.  , 

-.099, 

1ft. , 

D 

20., 

.6, 

2.  , 

P 

8., 

-.017, 

10.  , 

F 

16.  , 

-.099, 

18., 

C. 

20., 

.8, 

2.  . 

H 

8., 

-.029, 

10.  , 

I 

16., 

-.123, 

18.  , 

J 

20., 

.9, 

2.  , 

< 

8. , 

-.022, 

10.  . 

L 

16.  , 

-.132, 

18., 

DATA 

K5THM3 

/  5., 

1.  , 

A 

24., 

0., 

2.  , 

ft 

8., 

-.021, 

10. , 

C 

16.  , 

-  .  08 , 

18.  , 

0 

24., 

-.103, 

F 

24. , 

.  6 , 

2.  , 

F 

8., 

-.021  , 

10., 

G 

16 .  , 

-.08, 

18.  , 

H 

24., 

-.103, 

! 

24., 

.8, 

2.  , 

J 

8. , 

-.045, 

10. , 

K 

16.  , 

-.  112, 

18.  , 

L 

24.  , 

-.14, 

ft 

24., 

.9, 

2.  , 

N 

8., 

-.049, 

10.  , 

G 

16., 

-.135, 

18., 

P 

24., 

-.17 

OATA 

K61MST 

/  3., 

1.  , 

A 

18. , 

0., 

0.  , 

8 

.3, 

.06, 

.4, 

C 

.7, 

.205, 

.8, 

D 

20., 

.2, 

0.  , 

E 

.3, 

.069, 

•  4, 

F 

.7, 

.23, 

.  8 , 

G 

22., 

.4, 

0.  , 

H 

.  3, 

.079, 

.4, 
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0.  , 

30.  , 

4.  , 

-.008, 

2., 

-.003, 

4., 

.001, 

.006, 

10.  , 

.002, 

12., 

-.018, 

-.085, 

18.  , 

-.114, 

20., 

-.125, 

-.  122, 

26.  , 

-.120, 

-.008, 

2.  , 

-.003, 

4., 

.001, 

.006, 

10.  , 

.002, 

12., 

-.018, 

-.085, 

18.  • 

-.114, 

20., 

-.125, 

-.122, 

26.  , 

-.120, 

-.026, 

2.  , 

-.019, 

4., 

-.014, 

-.006, 

10.  , 

-.009, 

12., 

-.037, 

-.113, 

18.  , 

-.145, 

20., 

-.158, 

-.152, 

26.  , 

-.147, 

-.026, 

2.  , 

-.019, 

4., 

-.014, 

-.006, 

10.  , 

-.009, 

12., 

-.037, 

-.113, 

18.  , 

-.145, 

20., 

-.158, 

-.152, 

26.  , 

-.147 

/ 

0.  , 

22.  , 

4.  , 

-.017, 

4.  , 

-.016, 

6  •  , 

-.016, 

-.02, 

12.  . 

-.038, 

14., 

-.067, 

-.127, 

20.  , 

-.138, 

-.017, 

4.  , 

-.015, 

6  « , 

-.016, 

-.02, 

12.  , 

-.033* 

14., 

-.067, 

-.127, 

20.  • 

-.138, 

-.027, 

4., 

-.027, 

6  •  , 

-.027, 

-.034, 

12.  , 

-.056, 

14., 

-.087, 

-.155, 

20.  , 

-.172, 

-.022  , 

4., 

-.021, 

6  .  , 

-.021, 

-.026, 

12.  , 

-.049, 

14*» 

-.087, 

-.17, 

20.  , 

-.187 

/ 

0.  , 

26.  , 

4.  , 

-.027, 

4.  , 

-.024, 

6  •  , 

-.022, 

-.026, 

12.  , 

-.04, 

14., 

-.059, 

••If 

20.  , 

-.  109, 

22., 

-.108, 

-.027, 

4.  , 

-.024, 

6  • , 

-.022, 

-.026, 

12.  , 

-.04, 

14., 

-.059, 

-•  1  , 

20.  , 

-.  109, 

22., 

-.108, 

-.052, 

4.  , 

-.048, 

6  .  , 

-.046, 

-.048, 

12.  , 

-.064, 

14., 

-.087, 

-. 136, 

20.  , 

-.148, 

22., 

-.146, 

-. 056, 

4.  , 

-.053, 

6  • , 

-.05, 

-.054, 

12.  , 

-.077, 

14., 

-.104, 

-.165, 

» 

20.  , 

-.179, 

22., 

-.177, 

/ 

0.  , 

24.  , 

6*  ? 

0.  , 

.1  , 

.01, 

.2, 

.031, 

.093, 

.5, 

.128, 

.  6  , 

.  166 , 

.246, 

0.  , 

0.  , 

0., 

0  . , 

0.  , 

.  1 , 

.012, 

.2, 

.037, 

.105, 

.5, 

.146, 

.  6 , 

.188, 

.273, 

.9, 

.317, 

0., 

0., 

0.  , 

.1  , 

.016, 

.2, 

.045, 

.119, 

.  5  , 

.162, 

•  6  , 

.205, 
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AM  EM  168 
AFT  EN  169 
AFTCN170 
AFT EN 17  I 
AFTEN  172 
AFT  EN  173 
AFT  EN 1 74 
AFTEN  175 
AFTEN 176 
AFTEN 177 
AFT  EN 178 
AFT  EN  179 
AFTEN 180 
AFT  EN  161 
AFT  EN 182 
AFTEN  183 
AFTEN  184 
AFT  EN 185 
AFTEN 186 
AFT  EN 187 
AFTEN  188 
AFT  EN 189 
AFT  EN 190 
AFTEN  191 
AFTEN  192 
AFTEN 193 
AFTEN  194 
AFT  EN  195 
AFTEN 196 
AFT  EN  197 
AFT  EN 196 
AFT  EN  199 
AFT  EN  200 
AFTEN 201 
AFTEN  202 
AFTFN203 
AFTEN 204 
AFTEN  205 
AFT  EN 206 
AFTEN 207 
AFTEN208 
AFTEN209 
AFT  EN  2 10 
AFTEN211 
AF  T  EN  2 12 
AFT  EN  2 13 
AFTEN214 
AFTEN  215 
AFT  EN  216 
AFT  EN217 
AF  T  EN  2 18 
AFTFN219 
AFTEN220 
AFTEN 221 
AFT  EN 222 
AFT  EN223 
AFT  EN  224 


I 

•  /♦ 

.248* 

.8, 

.29, 

.9, 

.333, 

1.0, 

.377, 

AFTEN225 

J 

22.* 

.6, 

0., 

0.  , 

.1, 

.018, 

.2, 

.052, 

AFTEN226 

X 

.3, 

.095, 

.4, 

.138, 

.5, 

.18, 

.6  , 

.22 4, 

AFTEN227 

L 

.7, 

.266  , 

•  8  # 

.309, 

.9, 

.351, 

1.0, 

.394, 

AFTFN228 

M 

22.* 

•  8, 

0.  , 

0.  , 

•  If 

.03, 

.2, 

.07, 

AFT  EN229 

N 

.3* 

.112, 

.4, 

.153, 

.5, 

.196, 

.6  , 

.24, 

AF TEN  2 30 

0 

.7, 

.283, 

.8, 

.325, 

.9, 

.364, 

1.0, 

.402, 

AFT  EN  231 

P 

22., 

1.0, 

0.  , 

0.  , 

.  1 , 

.048, 

.2, 

.098, 

AFTEN232 

Q 

.3. 

.144, 

.4, 

.185, 

.5, 

.225, 

.6 , 

.265, 

AF TEN  233 

R 

.7, 

.305, 

.8, 

.345, 

.9, 

.335, 

.93, 

.4  / 

AFTEN234 

40 


60 


PI  *  3.1415927 
GAIMFS  *  1.4 
RRR  *  1716.5 
GRAV  *  32.174 
A3*  AE  ♦  AB 
DEL  A  *  DELA AM*AM 
Am!  F  =  AWFAM*AM 
AMT  *  AWTAM*AM 
AP=AF-DELA/2. 

GAMAV  *  (GAM*GAMS)/2. 

PEPE  *  XM0M/(GAMAV*AE*ME**2) 

DM  «2.*S0RTI  AM/PI  I 
DEL X  *  0ELXDM*DM 
AFTFRR  =0.0 

THETR  *  THETAM*  .017453 
RMZA*  IMSAMAMB /AM I**  1 . 5 

IMST  =  (RMZA/ AMB*( AMR -2.0* ( AP*ABI  )  *1 MSF/AM*  (  AM- A MB)  1  *  AM/  ( AM-2.* 
I  (AP*ABII 

RMF*  XMOM  *2.0  / ( l .4 *AM*M0**2I 

IF  MO  .GT.  1.01  GO  TO  60 

PBPE*  I  0.9*0. 0 167*R HF  I  /  (  0.  94*0.  Q6*(2.0*(AB*AE)/AMI  I 
OB  *  (1.0-PBPE»*P0*2.0*AB 
G3  T3  62 

TETE*  1 1.0*1  GAM- 1. 01 /2.0I /(  1 . 0* ( GAM-1 .01 il .0*ME**2» 

DEQ*  SORTC2.0*AM/3. 141592) 


PBPE*TETE*3.5/( .5*6. *( AB*AE ) 

l  / AMI *( 0.19*1.2B*RMF/(1.0*RMF)I* 

l  .  04  7*  (  5.C-M0|*(2.0*0ELX/0E0*  IOELX/OE  Qt  **2 1 

08  *  I l.0-PBPEI*PQ*2.0*AB 

62  IF ( MO  .IE.  1.0)  GO  TO  100 

X*  S3RTIM0**2-1.0)*1MST 
Z«  2.0*IAP*AB l/AM 
CAL.  XTRP I X,RK6,Z,K6lMST) 

IF  C  ISO  .LE.  3)  CALI  XTRP  I  M0*RK2  *0.  »K2M01 1 
I F ( ISO  .GE.  4)  CALL  XTRPI  MO  ,RK2  ,0.  ,K2M02) 

R<3»  0.0 

IF ( MO  .GE.  2.01  GO  TO  75 


XI* 

X3* 

Yl« 

Y3* 

Y2= 

XM  1« 
XM2« 

XM  3* 

NX*  1 
ALPHAO* 


0.0 

LOM*SQRTI  4. 0*AM/3. 141592) 
DEQ/2.0 

SORT! ( AE  *AB )/3. 1 41592) 

Y  3*1  X3- XI ) *TAN( THFTR) 

MO 

MO 

MO 


ATANI  1.0/S3RT(XM2**2-l.0ll 


AFT  EN  235 
AFT  EN  236 
AFT  EN  237 
AFTEN238 
AFT  EN  239 
AF  TEN  240 
AFTEN241 
AFTEN242 
AFT EN 243 
AFT  EN  244 
AFT  EN245 
AFTEN246 
AFT  EN  247 
AFTEN248 
AFT EN 249 
AFT  EN  250 
AFT  EN  251 
AFTEN252 
AFT  EN  253 
AFT  EN  254 
AFTEN255 
AFTEN256 
AFTEN257 
AFTEN258 
AFT  EN  259 
AFT EN 260 
AFT  EN  261 
AFTEN262 
AFT EN 263 
AFTEN264 
AFTEN265 
AF  TEN  266 
AFTEN267 
AFTEN268 
AFT EN 269 
AFT EN 270 
AFTEN271 
AFT  EN  272 
AFT  EN  273 
AFTEN274 
AFTEN275 
AFT EN 276 
AFT  EN  277 
AFT  EN  278 
AFTEN279 
AFTEN280 
AFT EN 281 
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THFTAR*-THFTR  /  2.0 

65  At  PH  A*  ATANI l  .C/SQR TC XM3**2-l .01 ) 

ALPHAR*  (ALPHA*ALPHA0)*0.5 

ALP8  TANI ALPHAO-TANI  THF  TAR -ALPHAR) 

8ET  =  (Y3-Y1I/ALP 

CET=  XI*  TANI ALPHAOI /ALP 

DFT  =  X3*TAM(THFTAR-ALPMAR)/ALP 

XX 2s  BFT*CF  T-OE  T 

VY 2-  I  XX2-Xi)*TANIAC  PHAOI*Yl 

YR  =  (YY2*Y3)/2.C 

T3  TT  *  l.O/l  1.0*0. 2*XM3**2I 

T2TT=  1.0/1 1.0*0. 2*XM2**2I 

nTT=  (  T3TT*T2TT)/2.0 

FRO8  SQRT(TRTT/T3m  /COS(ALPHAR) 

FR0=  TAN( THFTAR)*TAN(ALPHAK) 

GRQ8  YRMFRrj  4-1.0) 

XM48  ERQ*  I FR  Q/CRQ*I X3-XX2 ) ♦ THE TR ) ♦ XM2 *S0RT I T2TT/T3  TT ) 
IF(ABS(XM4-XM3).LF.  0.  0001*  XM3)  GO  TO  70 
XM38  XM4 

IFIXM4.LE.  1.01  .AND.  NN.EQ.  II  XM3 *  1.2*M0 
IF  ( XR  4.1  E.  1.C1  .AND.  NN.GT.  1)  GO  TO  70 
NN8  NN*l 

IFINN  .LF.  1001  GO  TO  65 
AFTFRR*  1.0 
WRITE  (6,9960) 

RETJRN 

70  XML 8  AMAX1I  1.05.XM4I 

PLPF*  ((  l  .0*0. 2*M 0**2!  /(  l.  0*0.2  *XMl**2) I **3.5 
OL  8  0 • 7*P0*  XML*+2*PLPE 

|F  ((PFPE-PLPt  MPO/OL  .GE.  1.4)  CALL  XTKPI  THET  AM,  RK3 ,0.  .  K3T  HF  T  ) 

75  D8T>  8  RK6/(M0**2-l.QI*Q*(AM-2.0*(AP*AB)l*RR2- 
l  2.0*RK3*A0*(  PEPE-PLPEI *P0 

G3  T3  211 

100  X8  (M0**2-l.0)/I(M0*‘*2MMSA)**.6666667l 
X  8  AMAX1I  X,-2.) 

Z=  2 . 0*  (  AP  ♦  AB  )  /AMB 

IF ( NT  . EQ  .  1  .AND.  DFLXOM  .3T.  0.1  GO  TO  14  5 

IF ( IT  .  EO . 1  .AND.  ISD  ,E0.  1)  CALL  XTRP ( X , RK4, l ,K4 I  MS l ) 

IFUT.EO.l  .AND.  ISD  ,EQ.  2)  CALL  XTRPIX  ,RK4, Z,K4  I MS2  I 

IF ( I T • EO •  l  .AND.  ISO  .EO.  3)  CALL  XTRP ( X , RK4, l ,K4 I MS3 ) 

IFIIT.E0.2  .ANO.  ISO  .EO.  1)  CALL  XTRP l X , RK4,  l ,K4 l MS4I 

IFIIT.EO.l  .ANO.  ISO  .EQ.  4)  CALL  XT  RPC  X  ,  RK4 , 2  ,K4  I  MS  5  I 

G3  T3  148 

145  CAL.  XTRPIX, RK4, 2, X4IMS6I 

148  IF  (  ISD  .EO.  1)  CALL  XTRP  (TME  TAE  ,R  K5  ,  MO ,  K5  THMl  ) 

IF  (  ISO  .EO.  2)  CALL  XTRP  (THE  TAE  ,P  K5  ,  MO ,  K5  THM2  ) 

IF?  ISO  .GE.  3)  CALL  XTRP (  TNETAE  ,PK5 » MO  »  K5  THM3  ) 

FID8  PTPFS*PO*AJCD*  SQR T< 2 . 0*3 A M**2 /  IGAM-l .3 ) * (2 .0/ (GAM*l .0  )  )** 
l  1 1  GAM*  l  .0  I/I  GAM-l  •  01 1  ♦  1 1  •  0- 1 1.  O/PT  PF  S)  **( (3 AM- 1 .0 )/ GAM »  )  I 

R< 1=  0.0 

IFICT.GT.l.  IGO  TO  210 
IFINT  .EQ.  1)  GO  TO  185 

IFCMT  .LE.  31  CALL  XTRP! 1. -C  T  ,RKl  ,M0  ,KICVI 
IFINT  .LE.3IG0  TO  210 

IFINT  .GE.  4)  CALL  XTRP!  I, -C  T  ,RKL  ,M0  ,Kl  CVL3I 
IFINT  .GE.  4)  CALL  XTRPIl.-CT  ,RKS»MO  ,KICVS3) 

G3  T  3  186 


AFT  EN  282 
AFT  EN  203 
AFT EN 284 
AF  T  EN  285 
AFT  EN  286 
AF  TEN  28  7 
AFT  EN  288 
AF  T FN  289 
AFT  EN  290 
AF  T  EN  29 1 
AFT  EN  292 
AF  TEN  29  3 
AFT  EN  294 
AFT  EN  295 
AF  T  EN  296 
AFT  EN  297 
AFTEN298 
AFT  EN  299 
AFTEN  300 
AFTEN301 
AFTEN 302 
AFTEN  303 
AFTEN 304 
AFTEN 305 
AFTEN 306 
AFTEN  307 
AFTEN 308 
AFTEN 309 
AFTEN 310 
AFTEN  31 1 
AFT  EN  312 
AFT  EN  3 1 3 
AFTEN  314 
AF  T  EN  3 15 
AF  T  EN  3 16 
AFTEN317 
AFT  EN  3 18 
AFT  EN  319 
AFT  EN  320 
AFT  EN  321 
AFTEN  322 
AFTEN323 
AFT  EN  324 
AFT  EN  325 
AFTEN326 
AFT  EN  327 
AFTEN 328 
AFT  EN  329 
AFTEN  330 
AFTEN331 
AF  T  EN  332 
AFTFN333 
AFTEN  334 
AFT  EN  335 
AFT  EN  336 
AF  TEN  337 
AFT  EN  338 
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185  IF  (  OEL  XDM .EQ  •  C.l  CALL  XRP<  1 .  -C  T  ♦RKl .MO  .  KICVL2I 
IFIOFLXOM.EQ.  C.l  CALL  XTRP  (1  .-C  T  ,RKS  tMO ,  K1CVS2I 
IF  (  OFLXQM.GT  .  C.l  CALL  XTRP ( 1 .-C T  ,RKL tMO* KICVL1 1 
IF  (  DEL  XDM .GT .  C.l  CALL  XTRP ( 1 . -C T  ,RK S tMO 1 KICVS II 

186  R<  1  =  RKS  ♦  I  AT-ATMIN)  *(RKL-RKSI /(  ATMAX-ATMINI 

210  DBT*  *  RK4*I  I  MSA/MOI  **.6666667*Q*(AM£1-2.3*(AP*AB|  )  ♦Rt^l^.O* 

l  { AF*AB)+RKI*2.0*F10 

211  LIB  =  LMBDM*DM 
LL  =  LDM*DM 
FTHFTA  =  THETDM*DM 
RHO  =  PO*GRAV/(RRR*TO) 

MJ  *  2.27E-8*T0  **(  1.51  /(  T0*198.6) 

UO  =  MO*  S3*  T(  GAME  S*RRR  *T 01 
RFTHFT  a  RHO*UC*FTBE  TA/IGRA  V*MUI 
TAW  *  TO* I  !.♦,  I78*M0**2I 

TP  *  TO* (  1  .  ♦  .035*M C**2  ♦  .45*1  TAW/TO  -L . I) 

MJP  *  2.27E-e*TP  **(1.51/1  TPU98.6I 

K  T  =  0 

RFTHP  =  l.E  6 

215  FJNC  *  *  E  THE  T  -MIJP*.  044*RE  THP/I  A  l  OGl  01  RE  TH  PI -l .  5 1  **2/ MJ 
SAV*P  *  RFTHP 

CALL  ITRATEIRETHP.FUNC  ,0.,KT) 

IFIABSIFUMCI  .LT.  l.F*2)  CO  TO  225 

1 F  (  SAVRP-RETHP  .GT.  O.IREHP  *  A  MAXI  IRE  THP ,  .B*SAVRPI 
IF  ( SA VRP-RE  THP  .LT.  O.IRFTHP  *  AMINUREHP,  1.2*SAVRP) 

IF(<T  .GT.99IG0  TO  220 
I F  (  <  T  .FQ.1IRETHP  *  I.01*RETHP 
G3  T3  215 
220  AFTERR  =  1. 

WRITEI6,  99701 
RE  TORN 

225  RHOP  *  P 0*GRA  V /IRRR  *TP  I 

LEFF  »  GRAV*MUP*RFTHP/(RHOP  *UOI  ♦  LMB 
LVA*  *  LL  -  LMB 
AWET  *  AWT  -  AhF 
LFLG  »  l 

230  LT  *  LFFF  ♦  L VAR 

RELP  *  RHOP*UO*LT/(GRAV*MUPI 

CF  «(  .088*1 ALOGIOIRFLPI  -  2 . 3686  I  I *T0/ ( AL OGIO I REL P I -1 . 5 1 ** 3  /TP 

03 TF  =  CF*3*A  WET 

IFIMO  .L  T.  1.  I  GO  TO  250 

IFUFLG  ,F3 .  21  GO  TO  235 

LFLG  *  2 

LFFF  =  LEFF  -  LMB 
L V A*  a  LMB 
AWET  *  AWF 
OB  TF l  =  OBTF 
GO  TO  230 

235  OBTF  a  (  OB  TF  1  ♦  OB  TF  I 
250  OT  a  OBTP  ♦  08  03  TF 

QAWIN  G  =  Q*AWING 
COBTP  »  DBTP/QAWIN3 
COBTF  a  OBTF/OAWING 
COB  a  OB/QAWING 

TMO  «  T  1 0*P  TPF  $*PO*A  JCO*C V  -  OT 
CTMTO  »  TMO/I  T10*PTPFS*P0*A  JCOI 
COT  *  OT/QA WING 


AFT EN 339 
AF TEN  340 
AFT  EN  341 
AFT  EN  342 
AFT  EN 343 
AF TEN  344 
AFT  EN  345 
AFT  EN  346 
AFTEN347 
AFTEN348 
A  FT EN 349 
AFTEN350 
AFTEN351 
AFTEN352 
AFT EN  353 
A  FT EN 354 
AFT  FN  355 
AFT  EN  356 
AFTEN357 
AFTEN  358 
A  FT FN 359 
AFTEN  360 
AFTEN  361 
AFTEN  362 
AFTEN363 
AFTEN 364 
AFT  EN  365 
AFTEN  366 
AFTEN  367 
AFT  EN  368 
AFTEN 369 
AFTFN370 
AFTEN371 
AFT  EN  372 
AFTEN373 
AFT  EN  374 
AFT  EN  375 
AFTEN376 
AF  T  FN  37  7 
AFT  EN  378 
AFTEN  379 
AFTEN  380 
AFT  EN  381 
AFTEN  382 
AFTEN  333 
AFTEN  384 
AFT  EN  385 
AFT  EN  386 
AFT  FN  387 
AFTEN  388 
AFTEN  389 
AFTEN  390 
AFT  EN  391 
AFTEN  392 
AFT  EN  393 
AFTEN  394 
AFTEN  395 
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9960 

9970 

***  FN 


RETJAN 

F3RMATI*  EXTERNAL  EXIT  MACH  NUMBER  ITERATION  FAILED*! 
F3RAAT  1*0  REYNOLDS  NUMBER  ITERATION  FAILED*! 

END 


AFT  EN  396 
AFT  EN  397 
AFTEN398 
AFT  EN  399 
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♦♦♦BEGIN 


SUBROUTINE  EJECTRIAT,ATFL0W,AE0A1  ,APTOAT,ANPR,OJMVAR,QQQ, GAM, GAMS,  EJECT  001 

1  ?S?3  ,CDN,CT,  WS0WP1  ,PTSPTP,FIAG,  NGZERR  ,H ,  CTI  D,K  MOM,  QMODEL  ,  CS»  EJECF002 

2  TIOfXMFXITI  EJECT003 

DIMENSION  XI  21,  XMINI2I,  XMAXI2)  ,  EPSI2),  FI2)  EJECT004 


DIMENS  ION  F  I G  51 32 1  ,  FIGIUI157I  , 
EQUIVALENCE  (  F  IG11M  LI  ,F  131 1 C II  I  ,  ( 
REAL  mp,mep,ms,mes*me 

COMMON  /AREA /  GAMM ,3AMMS,GAM  SP,A PtJAT 


DATA 

FIG11A  / 

5., 

1.  , 

0.  , 

A 

14., 

0., 

1.025, 

.997, 

B 

1.3, 

.997, 

1.4, 

.997, 

C 

0., 

0., 

0.  , 

0.  , 

D 

14., 

2., 

1.025, 

.997, 

F. 

1.2. 

.997, 

1.25, 

.996, 

F 

0., 

0., 

0.  , 

0.  , 

G 

20., 

4., 

1.025, 

.997, 

H 

1.3, 

.997, 

1.33, 

.997, 

I 

1.5, 

.996, 

1.6, 

.9952, 

J 

22., 

6. , 

1.025, 

.997, 

K 

1.4, 

.997, 

1.5, 

.997, 

L 

1.6, 

.996, 

1.7, 

.9945, 

M 

22., 

8., 

1.025, 

.997, 

N 

l.l. 

.9955, 

1.2, 

.9945, 

1 

1.5* 

.996, 

1 . 6, 

.9965, 

P 

22., 

10., 

1.025  , 

.997, 

0 

1.1, 

.993, 

1.2, 

.991  , 

R 

1.5, 

.992, 

1.6, 

.9925, 

S 

22., 

12., 

1.025, 

.997, 

DATA 

FIGU9  / 

A 

1.1, 

.9915, 

1.2, 

.9875, 

B 

1.5, 

.9865, 

1.6, 

.9875, 

C 

22., 

14., 

1.025, 

.997, 

D 

1.1, 

.990, 

1.2, 

.9835, 

E 

1.5, 

.981, 

1.6, 

.9812, 

F 

22., 

16. , 

1.025, 

.997, 

G 

1.2. 

.9815, 

1.3, 

.978, 

H 

1.6, 

.9753, 

1.7, 

.9756, 

I 

22., 

18., 

1.025  , 

.997, 

J 

1.3. 

.973, 

1.4, 

.971  , 

K 

1.7, 

.968, 

1.8, 

.968, 

L 

22.  , 

20., 

1.025, 

.997, 

M 

1.3, 

.970, 

1.4, 

.966, 

N 

1.7, 

.9618, 

1.8, 

.9615, 

N0ZERR=0 
CT ID  *  X. 

GAMSP  *  GAMS 
PI  «  4.*A  TANI  l.| 
RAO  =  .0174533 
RS  »  53.35 
RP  «  RS/RSRP 
APT  *  APTOA  T*A  I 
CON  «  ATFLOW/APT 
AE  *  AEOAT  ♦  AT 
RE  «  SQRTIAE/P  I) 


'  IG11BI 1 12)  ,  FIG1K269) 

IG11B  <1)  ,F  If.l  H  158>) 

,  ASDAT  ,MP,M$ 

24.,  11., 

EJ ECT 005 
EJECT  006 
EJ  ECT 007 
EJECT  008 
EJ  ECT 009 

1.1. 

.997, 

1.2, 

.997, 

EJECT010 

1.5, 

.997, 

1.56, 

.997, 

EJ  ECT  Oil 

0.  , 

0., 

0., 

0  • , 

EJ ECT  012 

1.1  , 

.997, 

1.2, 

.997, 

EJ  ECT  013 

1.3, 

.995, 

1.3, 

.995, 

EJ ECT  014 

0.  , 

0.  , 

0., 

0., 

EJ ECT  015 

1.1, 

.997, 

1.2, 

.997, 

EJ ECT 016 

1.33, 

.997, 

1.4, 

.9965, 

EJ  ECT  017 

1.63, 

.995, 

0., 

0., 

EJ  ECT  018 

1.1  , 

.997, 

1.2, 

.997, 

EJECT  019 

1.56, 

.997, 

1  .56, 

.997, 

EJ  ECT  020 

1.8, 

.993, 

2.0, 

.9928, 

EJ ECT 021 

1.06, 

.997, 

1.06, 

.997, 

EJECT  022 

1.3, 

.995, 

1.4, 

.9955. 

EJ  ECT  023 

1.8, 

.996, 

2.0, 

.994, 

EJ  ECT 024 

1.045, 

.997, 

1.045, 

.997, 

EJECT  025 

1.3, 

.991, 

1.4, 

.9915, 

EJ  ECT  026 

1.8, 

.9935, 

2.0, 

.994, 

EJECT  027 

1.032  , 

.997, 

1.032, 

.997/ 

EJECT  028 
EJECT  029 

1.3, 

.986, 

1.4, 

.9862, 

EJ ECT 030 

1.8, 

.989, 

2.0, 

.990, 

EJECT031 

1.032  , 

.997, 

1.032, 

.997, 

EJECT032 

1.3, 

.9815, 

1.4, 

.981, 

EJ ECT  033 

1.8, 

.982, 

2.0, 

.9835, 

EJ  ECT 034 

1.025  , 

.997, 

l.l. 

.988, 

EJ ECT  035 

1.4, 

.976, 

1.5, 

.975, 

EJ  ECT  036 

1.8, 

.976, 

2.0, 

.977, 

EJ ECT 037 

1.1  , 

.986, 

1.2, 

.978, 

EJ  ECT  038 

1.5, 

.969, 

1 . 6, 

.968, 

EJECT  039 

1.9, 

.9685, 

2.0, 

.969, 

EJ  ECT  040 

1.1, 

.9845, 

1.2, 

.976, 

EJECT  041 

1.5, 

.963, 

1.6, 

.9622, 

EJ  ECT 042 

1.9, 

.9612, 

2.0, 

.9612  / 

EJ  ECT 043 

EJ  ECT  044 
EJ  ECT 045 
EJECT  046 
EJ  ECT 047 
EJ ECT 048 
EJ  ECT  049 
EJECT  050 
EJ ECT  051 
EJ  ECT 052 
EJ ECT  053 
EJECT  054 
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RT  *  SORT! AT/P II 

THET  *  ATANI  (RE-RT) /SQRTIFL-IRE-RTI  **2I  I 

THETA  *  THET  /  RAO 

IF ( DUM VAR »GT  •  C.OI  GO  TO  3 

PT  SR  TP*  1.0 

MSOMPl*  0.0 

FFIDS*  0.0 

AEDAP  S*  AE/ATFLOW 

G12GM  1*IGAM  +  1.CI/I2.0*IGAM-1.0I  I 

QMQ  «  1. 

KTE«  0 

4  FJNC5  *  AFDAP  S-U2.+IGAM  -  l . I *QM0**2I / I  SAM  ♦  III  **G12GMI/ QMQ 
SVQM3E  *  QMQ 

CALL  ITRATEIQMQ,  FUNC5 *  0.  «  KTFI 
IF  I  A8S(  FIIMC5 )  .LF.  1.E-4I  GC  TO  5 
IF  ( <  T6.GT •  251  GO  TO  475 
IF  ( <  TE.EQ.  II  QMQ  «  1.01 

IF  (SVOMQE  -  QMQ  .GT.  O.IQMQ  *  AMAX1 I QMQ  ,  .5*11. ♦SVQMQE  1 1 
IF  ( SVQMQE  -  QMQ  .IT.  O.IQMQ  *  AMI N1 ( QMQ  .  l.2*SVQMQFI 
GO  TO  4 

5  PQPTT  *  II.  ♦  .5*  QMQ**2  *1  GAM  -l.l)**l-GAM  /IGAM  -l.ll 
FSAAPS  *PQP TT*AEOAP S*I  l.*GAM  *QMQ**2| 

CALL  XTRP(AFOAPS.CS«THETA«F  IG1LI 
IF  (QMOOEL  .GE.2.  i:S  «  CS-.007 

FF ID*  GAM*  SQR  T  (2. /( GAM- 1 •  I  *  12 ./ 1 GAM*l • I)**((SAM»1.I/ IGAM-1 .11 
l  *C 1.-11 ./ANPRI**IIGAM-l.l/GAM| 1  I 
FLAG  *  4. 

TIO  «  FF  ID 
XMFXIT  *  QMQ 

CT  * ( CS* FSAAP S-  AEOAPS/ANPRI /FFID 

IF1»QPTT.GT.  I  ./AN3  R 1C  TIO*  IF SAAPS-AEOAPS/ANPRI/ FF ID 
XM3M*  (PQPTT*AE0APS*GAM*QMQ**2I  *ANPR*ATFU)W 
GO  T3  500 

3  IF1QQQ.FQ.2. 1  GO  TO  2 
PT  Sa  TP*DUMVAR 

|F I ANPR*P T SP TP  .GE.  1.1  GO  TO  2 
WR 1TEI 6, 10201 
GO  TO  490 

2  GAMP  *  GAM  ♦  1. 

GAMM  *  GAM  -  1. 

GAMPS  *  GAMS  ♦  1. 

GAMMS  *  GAMS  -  l. 

II  «  0. 

AEOAPS  *  AEOA  l/APTOA T/CDN 
ATOAPS  *  l./APTDA T/CDN 
C***  WA SWAP  SECTION 

IFIQQQ.EO.l.  I  GO  TO  19 

NSOWP l*DUMVAR 

WSONP  2*0UMVAR 

KONV*  0 

XI  II  *  .25 

XI  21  «  .75 

XMIMI  11*0. 

XM  INI  21  *  0. 

XMAXI  II  *  1. 

XMAXI2I  *  1. 

EPS!  II  *  l.E-4 


EJ ECT  055 
EJ  ECT 056 
EJ ECT 057 
EJ  ECT 058 
EJ ECT 059 
EJ  ECT  060 
EJECT  061 
EJ  ECT  062 
EJECT  063 
EJ ECT 064 
EJ ECT 065 
EJ  ECT  066 
EJ  ECT 067 
EJ ECT 068 
EJECT  069 
EJ  ECT 070 
EJ  FCT071 
EJECT072 
EJ  ECT 073 
EJECT  074 
EJ  ECT 075 
EJECT  076 
EJECT077 
EJECT  078 
EJ  ECT 079 
EJECT  080 
EJECT  08 1 
EJ  ECT  082 
EJ  ECT 083 
EJ  ECT  084 
EJ  ECT 085 
EJ  ECT  086 
EJ  ECT 08  7 
EJ  ECT 088 
EJ  ECT 089 
EJECT  090 
EJ  ECT 091 
EJECT  092 
EJECT  09  3 
EJ  ECT  094 
EJ  ECT 095 
EJ ECT 096 
EJ  ECT 097 
EJ  ECT 098 
EJ  ECT  099 
EJ  ECT  100 
EJ  ECT  10 1 
FJ ECT 102 
EJ  ECT  103 
EJ ECT 104 
EJ  ECT  105 
EJ  ECT 106 
EJ ECT 107 
EJ  ECT 108 
EJ  ECT 109 
EJECT  110 
EJ ECT 111 


***CONT INJ ING 


91 


10 


11 


19 


20 


40 


46 


47 


EP  SI  2  I  «  l.E-4 
POPTP  =  XI  1 1 
P3PTS*  X( 21 
PTSPTP*X(  II  /XI  21 


EJ  FCT112 
EJ  ECT  113 
EJECT  114 
EJ  ECT  115 


WS3WPA  * AT3AP  S*SQR  T( 2. /GAMM* I GAMP/2* I ** (3 AMP/GAMMl  I -(1  •  /  POPT  P I** ( IEJ ECT 116 

I  ./GAM I / SQ ft T (  l.-POPTP**(GAMM/GAMl )  EJ  ECT  117 

Fill-  EJECT  118 

IMSOiPI  -  WSOWPA*SQRTlRP/RS*GAMS/GAM*GAMM/GAMHS*(l.-POPTS**(GAMMS/  EJ  ECT  1 19 

IGANSI  ll*PTSPTP*P0PTS**Il./3AMSl  EJECT  120 

WS3WPB  =  GAMS/GAM*PTSPTP*i;AMM/2.*(P0PTP**lll.-GAM|/GAMI-l.l**l-l.EJ  ECT  121 

II  -  l.)  *P3P  TS**( 1. /GAM SI *SQP  T(  2 • /R  S*GAMS/GAMMS*  ( 1 .-POPTS** I GAMMSEJ ECT 122 

2/GAM  Sill  EJECT  123 

F(  21  *  EJ  ECT  124 

lWS3rf>2  -  WS0WPB/I11.-GAMMS/2.  *1 POPTS** 111 . -GAMSI/ GAMS  I- 1. 1 **  (-1.)  EJ  ECT  125 

I  |*P0PTP**(  l  •  /GAM |*  SORT! 2.  /RP  *GA  M/GA  MM* ( 1 • -POPTP** (GAMM/  GAM) II)  EJECT  126 

CALI  ITRATA(2,)«F,XM  I N«  XMAX  ,F  PS  ,30  »KONV I  EJ  ECT  12  7 

IF  ( <  ON  V  -  2)  1C, 11, 485  EJ ECT 128 

PP3PTP*P0PTP  EJECT  129 

IF  I X  (  ll.LT.O.  .OR.  XI2I.LT.O.IGO  TO  485  EJ  ECT  130 

IF(ANPR*PTSPTP  .GE.  l.t  GO  TO  46  EJECT  131 

MR ITEI  6,  1020  I  EJ  ECT 132 

GO  13  490  EJECT  133 

KT  *  0  EJECT  134 

P3PTP  =  PTSP  TP  *  •  75  EJECT  135 

P3PTS  *  POP  TP /PTSPTP  EJECT  136 

P3PTS«P0PTP/P  T5PTP  EJ  ECT  137 

WS3R> 1  =AT3AP  S*SQRTI  2. /GAMM* I GAMP/2. I •* (3  AMP/GAMM  I l-Cl  ,/POPT  P I** I IEJ  ECT 138 

l./GAM  )  /SORT!  l.-POPTP**IGAMM/GAM| 1  EJECT  139 

WSOrfPl  =  WSO WP  1*SQR  T(  RP/RS*GAMS/GAM*GAMM/G AMMS  *1 1 .—POPTS** I G AMMS/  EJ ECT 140 

IGAMS) I l*P  TSP  TP  *POPT  S**(l./3AMSI  EJ  ECT 141 

WS3RP2  *  GAMS/GAM*P  TSPTP*(  3AMM/2.  *( POPTP**  ( ll.-GAMI/GAMI-l. I** 1-1 .EJ  ECT  142 

II  -  1.1  *P3PTS**(  1. /GAMS|*SQRTI2./RS*GAMS/GAMMS*  1 1  . -POPTS**  ( GAMM  SF J  ECT  143 


2/GAMS  III 

HS3RP2  »  WS0WP2/III .-GAMMS/2.  *J  POPTS **1 (l.—GAMS l/GAMS 1-1.)** 1—1. 
1  |*P3PTP**l  l • /GAM  1*  SQR  T(  2.  /RP*GAM/GAMM*  ( 1  •  -POPT  P**  I  GAMM/  GAM)  )  I) 
FUN< Y  *  WS3WP1  -  WSOWP? 

SPDPTP  ■  POP  TP 

CALL  I  TRATE  (  POPTP  ,  FUNKY,  0.,  KT| 

IF  I AB  SI  FUNK  Y I  .LT.  .0011  30  TO  40 
IF ( 4  T  .GT.  25)  GO  TO  485 

-  POPTP  .GT.  0.1  POPTP 

-  POPTP  .LT.  0.1  POPTP 


I 


1)  POPTP  =  1. 01*  POPTP 


IF  I SPOPTP 
IF  I SPOPTP 
1  PTSPTP)  I 
IF ( <  T  .EQ. 

G3  T3  20 

PP3P  T  P  *  P3PTP 

HS3RP  l  *  .5*1  RS0WPUWS0WP2) 

PT3J  T P  «  PPOPTP 

WSW>  »  WS0MP1 

AEOA  =  AEOAPS 

P3PTPX  =  PPOPTP 

XX  =  1. 

BERM  =  l 

GO  TO  200 

PEOPTP  »  P3PTPZ 

PFO>TS  *  P3PTS 

IF  IPEOPTP  .GE.  l./ANPR)  30 


tAMAXll POPTP  ,  ,8*SP0PTPI 
'AMI  N1 ( POPTP, . 5* (SPOPTP* 


TO  80 


EJ  ECT  144 
EJ  ECT  145 
EJECT  146 
EJ ECT 147 
EJ  ECT  148 
EJ  ECT  149 
EJECT  150 
EJ  ECT 151 
EJ  ECT  152 
EJECT  153 
EJECT  154 
EJ  ECT  155 
EJ  ECT  156 
EJ ECT 157 
EJECT  158 
EJ  ECT  159 
EJ  ECT  160 
EJ  ECT 161 
EJ  ECT 162 
EJ  ECT  163 
EJECT  164 
EJ  ECT  165 
EJ  ECT  166 
EJ ECT 167 
EJECT  168 


***CONTINJlNG 


92 


ZZ  *  l.  EJECT  169 

IFOQQ.EQ.l.l  C,n  TO  48  EJECT  1T0 

WS3<PC  *  AEOAPS*SQRT!2./GAMM*lGAMP/2.1**lGAMP/GAMM))-(U/!i./ANPR  IEJECT  171 
l  )*M  l./GAM  l/SGRTU.-l  l./ANPRI  **  (GAMM/GAM)  I  EJECT172 

PT  S5  TP«  EJECT  173 

.  1WS0WP 1  /  WSOWPC*SQR T(RP/RS*GAMS/GAM*GAMM/GAMMS*(i. -POPTS** (GAMMS/  EJECT  174 
1  GAMS  III  *P0PTS**(1./GAMSI  EJECT  175 

IF  ( ANPR*PT$P  T  P  .GE.  l.l  GO  TO  49  EJECT176 

WRITE!  6, 10201  EJECT177 

GO  TO  490  EJECT  178 

48  WSOW’ X  *  AEOA  P  S*SQR  T ( 2./GAMM*!  GA  MP/2 • I ** (G AMP/GAMM) |-(l./(l./ANPR)EJECT179 


90 


l  )**(  l./GAM)  /SCRTI  l.-(  l./ANPRI  **IGAMM/GAM)  > 

PORTS  *  l./ANPR/PTSPTP 

WSOWP X  *  WSOWP  >*SQR  T (PP/RS*GAMS/GAM*GAMM/6AMMS*(l  • -POPTS**  IGAMMS/ 
1  GAM  S  1 1  l*PT  SP  TP*POP  T S**l  1*  /GAMS) 

IFJWSOWPX.GT  .WS0WP1I  GO  TCI  480 


49 


50 


BO 


WSDWR  1= 
WSWJ  = 
AEOA  * 
BERM  * 
PDPTPX 


WSOWPX 

WS0WP1 

ATOAPS 

2 

*  POPTPZ-. I 


GO  TO  200 
PTOPTP  *  POPTPZ 
PTfPTS  *  POPTS 
IF  (ZZ  . C3  •  0.) 
IP  ( Z 7  .NF.  0.1 
IF  (  P EOP TP  .GT, 


AREAS!  l./PPOPTP, PTSPTP, GAM, wSOWPl) 
AREAS!  1.  /PTOPTP, PTSPTP, GAM, WS0WP1 1 


CALL 
CALL 

l./ANPRI  GO  TO  90 
CALL  AREAS! ANPR.PTSP TP ,GAM,  WSOWPII 
AEPARS  *  APOAT*AEOAT*ATOAPS 
AE  SAa  S  =  A  SO A  T *AEOA  I  *A  TOAPS 
MEP  *  MP 
MES  *  MS 

XMFXIT  =  APOA  T  +MEP  ♦  A  SOAT*ME  S 

FF  ID  =  GAM*  SQR  T(2./GAMM*(2»  /CAMPI  **(GAMP/GAMM)*(l  .-(l./ANPRI**  I 
1  GAM'*  /GAM  )  |  | 

FF IDS  =  WSOWP  1  +  SQRT ( 2. *GAM*GAMS/G AMMS*RS/ RP*I2./GAMPI**  I GAMP/GAMM ItJ ECT204 
1  *  (  l.-( l./ANPR*l./PTSPTP)**(GAMMS/GAMS)l I  EJECT205 

FF  S  =  PEOPTP*AFPAPS*( l,*GAM*PEP**2l  EJECT  206 

FFSS  =  PFOP  T  S*PTSPTP  *AE  SAP  S  *!  1  •  ♦GAMS*ME  S**2 1  EJECT207 

TID  *  FF ID  ♦  FFIOS  EJ  ECT  208 

CS  =  .995  EJ  ECT  209 

IF  (  3M0DEI  .GE.2.  US  =  CS-.007  EJECT  210 

CT  *  (CS  *  l  FF  S+FFSS I  -  AErIAT*ATCJA  PS/ANPR 1/  ( FFID*FF IOS I  EJ  ECT  211 

FLAG  *  l.  EJ  ECT  212 

XMOM  =  (PE0PTP*AEPAPS*GAM*MEP**2*  PE  OPT  S*PTSPT  P*AES  APS * G AMS* M ESP*  2EJ  FCT  213 


EJECT  180 
EJ ECT 181 
EJ  ECT  182 
EJ ECT 183 
EJECT  184 
EJ  ECT  185 
EJECT  186 
EJ  ECT  187 
EJECT  188 
EJECT  189 
EJ  ECT  190 
EJ  ECT  191 
EJ  ECT  192 
EJ  ECT  193 
EJ  ECT  194 
EJECT  195 
EJECT  196 
EJ  ECT  197 
EJECT  198 
EJ  ECT  199 
EJECT  200 
EJECT  201 
EJ  ECT  202 
EJ  ECT  20  3 


92 


.  )*  AMPR*A  TFLOW 

EJ  ECT  214 

GO  TO  500 

EJ  ECT  215 

PRCOPO  *  .63  ♦  .04* A LOG! WSOWP 01 1 

EJ  ECT  216 

PRC»TT  =  PRCOPC/ANPR 

EJ  ECT  217 

WSW>  3  WSOWP  1 

EJ  ECT  218 

BERM  =  3 

EJ  ECT 219 

XX  *  0. 

EJ  ECT 220 

AEOA  »  AEOAPS 

EJ  ECT 221 

POPTPX  »  PPOP  TP-,001 

EJECT  222 

GO  TO  200 

EJ  ECT  223 

PEIPTP  *  POPTPZ 

EJ  ECT  224 

PEU’TS  »  POPTS 

EJECT  225 

***CQNT INJ ING 
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IF  (PRCPTT  .LE.  PEUPTPI 
IF  ( PRCPTT  .LE.  PP3PTPI 
WRITE  (6,1010) 

ro  n  490 

PRC’TS  *  PR  CP  71/P  TSP  TP 


TO  190 
TO  95 


EJ ECT  226 
EJECT  227 
EJ  ECT  228 
C-J  ECT  229 
EJ  ECT 230 


AI OAP S  *  WSOWP  1/1 S3R  T( RP/RS*GAMS/GAM*GAMM/GAMMS* 1 1 .-PRCPTS** I GAMMSEJ  ECT  231 


1/GAMS )  ))*PTSPTP*PRCPTS**<  l./GAMSJ) 

AIOAPS  *  AIOAPS  ♦  (l. /PRCPTT) **I 1. /GAM) /SQR Til. -PRCPTT** l GAMM/ GAM 

i  n 

AIOAPS  *  A I OA  P  S/SOR  T( 2. /GAMM*!  GAMP/2 . ) **(G  AMP/ GAMM) ) 

AI3AT  *  A I3AP  S/ATOAP  S 

PPFCSP  *  .1*10  .**( . 0332* THE  TA».72)*(lO.*!AE  OAT -l  •))**!- .77) 

MACH  SECTION 
ME  «  l. 

KT  ®  0 

FimX  *  AEOAT  -  l./MF*!!2.*GAMM  *ME  **2  I  /G  AMP)  **(GAMP/  12  .*GAMM  ) ) 
SVQMEE  *  ME 

CALl  ITRATE(ME,FUNKX,0.,KT| 

IF  (ABS(FUNKX)  .LE.  l.E-4)  GO  TO  160 
IF  I K T  .GT.  251  GO  TO  475 


EJ  ECT  232 
EJ  ECT  233 
EJ  ECT  234 
EJ  ECT  235 
EJ  ECT 236 
EJ  ECT 237 
EJECT  238 
EJ  ECT  2  39 
EJ  ECT  240 
EJECT  241 
EJ  ECT  242 
EJECT  243 
EJ  ECT  244 
EJ ECT 245 
EJ  ECT  246 
EJ  ECT 247 
E J  ECT  248 
EJ  ECT  249 
EJ ECT 250 
EJ  ECT  251 
EJ ECT 252 
EJ  ECT  253 
EJ ECT 254 
EJ  ECT  255 
EJ  ECT 256 
EJ  ECT  257 
EJECT  258 
EJ  ECT  259 
EJECT  260 
EJ ECT  261 
EJECT  262 


IF  I K  T  .GT.  251  GO  TO  475  EJECT  245 

IF  (  < T  .EQ.  1)  ME  *  1.01  EJ  ECT 246 

IF  (  S VQMEE-ME  .GT.  0.)  ME  *  AMAX1 1  ME  ,  .  5  *  1 1.  ♦SVQMEE) I  EJ  ECT  247 

IF  (  S  VQMEE-ME  .IT.  0.)  ME  *  AMINKME,  1.2*SVQMEE)  E  J  ECT  248 

G3  T3  150  EJECT 249 

CONTINUE  EJ  ECT 250 

PTTJE  *  I  l.«GAMM/2.*ME**2)**(GAM/GAMM)  EJ  ECT 251 

PTT’CP  *  PPFC  SP*PTTPF  EJ  ECT 252 

IF  (PTTPCP  .GE.  ANPR  I  GO  TO  180  EJ  ECT  253 

CALL  AREAS! l./PRCPTT,PTSPTP , GAM, WSOWPl)  EJ  ECT 254 

AEPAPS  *  APOA  T*AIOAP  S  EJ  ECT  255 

AESAPS  *  ASOAT+AIOAPS  EJ  ECT 256 

MFP  *  MP  EJECT  257 

"x'mr".S  .KO.T.MEP  .  A  SOATPME  S  EJ  ECT  259 

FFS  «  PRCPTT*AEPAPS*(  l.»GAM*MEP**2)  EJ  ECT  260 

FFSS  *  PRCPTS*PTSPTP*AESAPS*(  1.  ♦GAMS*ME  S * *2 •  EJ  ECT 261 

POA  *  1 .  /ANPR  *  1 1  6.*'PRCPTT*ANPRI  /7.)*l  AEOAT  *AT  OAPS -AIOAPS  I  EJ  ECT  262 

FF  ID  »  GAM*SQR  T(  2./GAMM*(2.  /GAMP)  •*  I  GAMP/ GAMM  I  *(l.-(l./  ANPR)**  I GAMEJ  ECT  263 
IM/GAM  )  I )  EJECT  264 

FF IDS  *  WSOWP 1*SQRT( 2. *GAM*GAMS/GAMMS*R  S/RP*(2./GAMP)**I  GAMP/ GAMM )EJ ECT 265 
l*  I  l.-l  l./ANPR*l./PTSPTP)**IGAMMS/GAMS)) )  E J  ECT  266 

CALL  XTRPiAIOAT,  CS,  THETA,  FIGll)  EJ  ECT  267 

IF  UMQOEL  .GE  .2.  1C  S  »  CS-.  007  EJECT  268 

TID  «  FF 10  ♦  FF 10 S  EJ  ECT 269 

CT  *  (CS*(FFS»FFSS)-AEOAT*ATOAPS/ANPR*PDA)/(FFIO*FFlDS)  EJ  ECT  2  70 

FLAG  «  3.  EJ  ECT  271 

XMQM  «  I  PR CP  TT*AEPAP  S*GAM*MEP**2  ♦  PRCPTS*PTSPTP*AESAPS*GAMS*MES**EJ ECT272 
12)*ANPR*ATFL0W  EJ  ECT  273 

G3  TO  500  EJECT 274 

CAL.  AREAS!  l./PEOPTP,PTSPTP  , GAM,  WSOWPl)  EJ  ECT  275 

AEPAPS  »  APOA  T*AEOA  T*ATOAPS  EJ  ECT  276 

AESAPS  ■  ASQAT*AEOAT*ATOAPS  EJECT 277 

HEP  *  MP  EJECT  278 

MES  *  MS  EJ  ECT 279 

XMEXAA  *  APOAMMEP  ♦  ASOAT*MES  EJ  ECT  280 

FF  ID  *  GAM*  SQR  I!  2.  /GAMM*!  2.  /GAMP )  **  I  GAMP/ GAMM)  *11.  -PEQPT  P**  ( GAMMS  EJECT281 
1/GAMS)  II  EJECT  282 


•♦♦CONTINJING 


190 


FFIOS  *  WS3WP  1*SQRT(  2.  ♦GAM*GAMS/GAMMS*RS/RP*(2./GAMP)**(GAMP/GAMM  IbJ 
1*  (  l.-P£aPTS**lGAMMS/GAMSl  I)  EJ 

FFS  *  PEOPTP*AEPAPS*< l.*GAM*MEP**2l  EJ 

FFSS  *  PE0PTS*PTSPTP*AESAPS*(1.»GAMS*MCS**2)  6 J 

T| 01*  FF 10  ♦  FFIOS  EJ 

CS  *  .995  EJ 

IFQMODEL  .GE.2.)CS*C  S-.007  EJ 

CTGE3  *  (CS  ♦  (FFS*FFSSI-AEGAT*ATOAPS*PEOPTP|/(FF  ID*TF  I  OS  I  FJ 

XM3MI*  (PE0PTP*AEPAPS*GAM*MEP**2*  PEOPTS*PTSPT  P*AES APS*GAMS*MES** 2EJ 
1I*ANPR^ATFL0W  EJ 

PRC*TT  =  PRCOPG/P  TTPCP  EJ 

PROMTS  *  PROP  TT/PTSP  TP  EJ 

AIOAPS  »  WSOHP  l/( SOR  T<  RP/RS*GAMS/G AM*GAMM/GAMMS * (1 .  -PRCPTS** ( GAMMSEJ 
1  /GAM$|||*PTSPTP*PRCPTS**(1.  /GARS)  I  EJ 

Al  0A*  S  *  A  IOAP  SM  1*  /PRCP  TTl **( 1 •  /GAM)  /SORT  (l.-PRCPTT  **(  GAMM/  GAM  ) I  EJ 
A13A>S  *  AIOAPS/SQR T( 2. /GAMM*(GAMP/2 . ) **(G AMP/GAMMI  I  EJ 

AI3AT  *  A  I3AP  S/ATOAP  S  Ej 

CALi.  AREAS!  l  •  /  PRCPT T  »P  TSP  TP  ,G  AM,  WSOWPl  I  EJ 

AEPAPS  *  AP0A  T  *A  10A  P S  EJ 

AESAPS  *  ASOAT *AIOAP  S  EJ 

HEP  *  MP  EJ 

MES  *  MS  EJ 

XMFXBB  *  AP0AT4MEP  ♦  A  SOA  T  *  ME  S  Ej 

FFS  *  PRCPTT*AEPAPS*(  (.♦GAM*MEP**2I  EJ 

FFSS  *  PRCPTS*PTSPTP*AESAPS*(1.*GAMS*ME$**2I  EJ 

PDA  *  l./PTTPCP*((6.»PRCPTT*PTTPCPI/7.l  *( AEOAT *AT OAPS-AIOAPS I  EJ 

FF  ID  *  GAM*SQRT(2./GAMM*(2./GAMP|**(GAMP/GAMM|*(l.-(l./PTTPCP|  FJ 
L  **(  GAMM/GAM )  1 1  Ej 


FF  |[)S  *  WSJ WP  1*SQRT(  2.  ♦GAM*GAMS/GAMMS*RS/  PP*(2./GAMPI**(  GAMP/ GAMM  ) EJ 
1  *1  l.-(  l./PTTPCP*l./PT$PTP)  **!GAMMS/GAMS)I|  EJ 

CALL  XTRP  ( A 10 A  T,  CS,  THETA,  FIGllI  EJ 

(F  ( QMOOEL  .GE.2.  IGS  *  CS-.007  FJ 

CTCUSP  *  (CS*< FFS^FF  SSI-AEOAT*ATOAPS/PTTPCP*PDA)/ (FFIDfFFIDSI  EJ 

T 1 02  »  FF 10  ♦  FF IDS  EJ 

TIO  *  TI02  -  IPTTPCP  -  ANPR  I  ♦  I  T 1 02  —  T 1 01  >  /  (PTTPCP-i.  /  PF.OPT  P  I  EJ 

CT  *  C  TCUSP  -  I  P  TTPCP- ANPR  I  *(  C  TCUSP-C  TGEOI  /  ( PTT  PCP-1 .  /  PEOPT  P  I  EJ 

XMEXI T*XMFXBB-(PTTPCP-ANPRJ  *( XMF  XBB-XMEX A A) / ( PTT  PCP-l •/ PEQPT  P I  EJ 


ECT  283 
ECT  284 
ECT  285 
ECT  286 
ECT  28  7 
ECT  288 
ECT 289 
ECT 290 
ECT 291 
ECT 292 
FCT293 
ECT 29* 
ECT  295 
ECT  296 
ECT  297 
E  CT  298 
ECT 299 
ECT 300 
ECT 301 
ECT 302 
ECT  30  3 
ECT  304 
ECT  305 
ECT 306 
ECT  30  7 
ECI  308 
ECT 309 
ECT 310 
ECT  311 
ECT  312 
ECT  313 
ECT  314 
ECT  315 
ECT 316 
ECT  317 
FCT 318 
ECT 319 


Flag  *  2.  EJ 

XR3M2*  (PRCPTT*AEPAPS*GAM*MEP**2  ♦  PRCPTS*PTSPTP*AES APS*GAMS*MCS* *EJ 
12I*AMPR*ATFL0W  EJ 

XMUM  *  XM0M2  -  (PTTPCP-ANPR  )  *(XMCP2-XM0Ml  I  /  (PT TPCP-l ./ PEOPT P I  EJ 

G3  T3  500  EJ 

CAL  I.  AREAS!  l./PC-UPTP,PTSPTP  , GAM, WSOWPil  EJ 

AEPAPS  *  APOAT*AEOA  T*A TOAPS  EJ 

AESAPS  *  A  SOA  T4AE0A  T  *A  TOAPS  EJ 

MEP  *  MP  EJ 

MES  *  MS  EJ 

XMEXIT  *  APOAMMEP  ♦  ASOAT*MES  EJ 

FF 10  *  GAM*  SQR  T(  2.  /GAMM*(  2. /GAMPI **(GAMP/GAMMl ♦ ( l .  -  ( l  •/ ANPR) **  (  GAMEJ 
IM/GAMII)  EJ 

FF I0S  *  WSJ  WP 1*SQR  T ( 2.  *G  AM*GAMS/GAMMS*RS/ RP*(2./GAMPI**  (GAMP/GAMM  IEJ 
1  MI.-(1./ANPR*1./PTSPTP|**(GAMMS/GmMSI  II  EJ 

FFS  *  PFUPTP*AFPAPS*(  l.«-GAM*MEP**2l  EJ 

FFSS  *  PEUPTS*PTSPTP*AESAPS*(l.*GAMS*MES**2l  EJ 

CALL  XTRPIAFOAT,  CS,  THETA,  FIGllI  EJ 

IF  (QMOOEL  .GF.2.  IGS  *  CS-.  007  EJ 

TIO  *  FF  10  ♦  FFIOS  EJ 


ECT 320 
ECT  321 
ECT  322 
ECT 323 
ECT  324 
ECT 325 
ECT 326 
ECT  327 
ECT 328 
ECT  329 
ECT  330 
LCT331 
ECT  332 
ECT  333 
ECT 334 
ECT 335 
ECT  336 
ECT 337 
ECT 338 
ECT 339 


♦♦♦CONTINUING 
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c*** 

200 

210 


CT  *  (CS*(FFS*FFSS)-AE0AT*AT0APS/ANPR)/(FFID*FF10S)  ej 

flag  *  4.  EJ 

IFIPFUPTP  .GT.  l./ANPR)  CT1  0  «  ( 1.  *(FFS*FFSS)  -  AE0AT*AT  CAPS  /  AN  PR  IEJ 
l  /  ( FF  ID*FF IDS )  EJ 

X'll't  *  (PEUP  TP*AEP4PS*GAM*MEP**2  ♦  PEUPTS*PTSPTP* AES APS*GAMS*MES**EJ 

12)*ANPR*ATFL0W  ej 

G3  TO  500  EJ 

BERNST  SECTION  EJ 

KT  =  0  EJ 

IF(XX.EO.O.  )P0PTPX«P0PTPX/2.  EJ 

P3PTS=P0PTP  X/P  TSPTP  EJ 

SVP3PT  *  POPTPX  EJ 

WSWRT  *  AE3A  *  SQRTt  2 •  /GAMM*( GAMP/2.  )  **  (GAMP/GAMM) )  -  ( l./POPT  PX  )**  ( l  .EJ 


240 

470 

475 

480 

485 

490 

500 

1010 

1020 


l  /GA'U/SQRU  l.-POPTPX**(GAMM/GAM))  EJ 

WSW’T  *  WSWPT*SQRTI  RP/RS*3A  MS/GA  M*GAMM/G  AMM$*  ( 1 . -POPTS**  (GAMMS/  EJ 

1  GARS  111*  PTSPTP*POPTS**U./GAMS)  EJ 

FJNKK  a  WSWP  -  WSWPT  EJ 

CALL  ITRATEl POPTP  X,F  UNKK ,  0.  ,  KT)  EJ 

IF  (ABS(FUNKK)  .LT.  l.E-4)  GO  TO  240  EJ 

IF  (KT  .GT.  25)  GO  TO  470  EJ 

IF  (SVPDPT  -  POP  TP  X  .GT.  0.)  POP  TPX  =  AMAXl  I  PQPT  PX ,  .B*SVPOPT)  EJ 

IF  (SVP3PT  -  POPTPX  .LT.  0.)  POPTPX*AMl  Nl  (  POPT  PX  t  .5*(SVP0PT*PI  SPTEj 

IP  I  )  EJ 

IF ( <T  .EQ.  1)  POPTPX  =  l.  01  *POPTPX  EJ 

G3  T3  210  EJ 

P3PTPZ  *  POPTPX  EJ 

IF  (BERN  -  2  )  47,  50,  92  Ej 


WR  I T F (  6,  1060) 

G3  T1  490 
WR ITE( 6, 1050) 

G3  T3  490 
WR  ITE ( 6, 1040) 

G3  T3  490 
WR  ITE( 6,  10301 
NOZERR  *  1 
WR  ITE ( 6, 9000 ) 

CONTINUE 

F3R4 A  T ( IHO, *R  ECOMP  PRESS 
FORHA  T ( * 0  SECONDARY  FLOW 


.GT.  THROAT  PRESS*) 
TOTAL  PRESSURE  LESS 


1C*  ) 

1030  FIRM A  T ( *0 
1040  FORM  A  T  ( *0 
1050  FORMAT (* 0 
1060  F3RMAT(*0 
9000  FORMAT ( IH 
RETJRN 
ENO 


PUMPING  CHARACTERISTICS  ITERATION 
UNCHOKED  WSWP  GREATER  THAN  CHOKED  WSWP*) 
MACH  NUM3ER  ITERATION  FAILED*) 

EXIT  PRESSURE  ITERATION  FAILED  *) 

,  *ERPOR  IN  EJECTOR  NOZZLE  ROUTINE*) 


EJ 

EJ 

EJ 

EJ 

EJ 

EJ 

EJ 

EJ 

EJ 

EJ 

EJ 

THAN  FREESTREAM  ST  AT  IEJ 

EJ 

FAILED*  )  EJ 


EJ 

EJ 

EJ 

EJ 

EJ 

EJ 


ECT  340 
ECT  341 
ECT  342 
ECT 343 
ECT 344 
ECT 345 
ECT  346 
ECT 347 
ECT  348 
ECT 349 
ECT 350 
ECT  351 
ECT 352 
ECT  353 
ECT 354 
ECT 355 
ECT 356 
ECT 357 
ECT 358 
ECT 359 
ECT  360 
ECT  36 1 
ECT 362 
ECT  363 
ECT 364 
ECT 365 
ECT 366 
ECT 367 
ECT  368 
ECT  369 
ECT 370 
ECT  371 
ECT 372 
ECT 373 
ECT  374 
ECT 375 
ECT 376 
ECT 377 
ECT 378 
ECT  379 
ECT 380 
ECT 381 
ECT 382 
ECT 383 
ECT  384 
ECT 385 
ECT 386 


***  ENO 
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ooncTooonoooonooooo 


♦♦♦BEGIN 


SUBROUTINE 
1  PAM,  TAMI 


FI  TSPD  ( I F SC ♦  FSPOt  AM,  VOK,  VOM,  VOKl  ,  VCMI 


INPUT  CODES 

IFS  *  1  MACH  NUMBER 
IFS  =  2  TRUE  AIRSPEED,  KNOTS 
IFS  =  3  TRUE  AIRSPEED,  M PH 
IFS  =  4  EQUIVALENT  AIRSPEED, 
IFS  =  5  EQUIVALENT  AIRSPEED, 
IFS  *  6  CALIBRATED  AIRSPEED, 
IFS  =  7  CALIBRATED  AIRSPEEO, 


KNOTS 

MPH 

KNOTS 

MPH 


NOMENCLATURE 

AN  -  MACH  NUMBER 

VDM  -  TRUE  AIRSPEED  IMPHJ 

V3<  -  TRUF  AIRSPEED  IKTSI 

VDM I  -  EQUIVALENT  AIRSPEED  IMPHI 

VDK I  -  EQUIVALENT  AIRSPEED  IkTSI 

CDMMDN/FL  T  SP  /  VCASKT,  VCASMP 

CDNNDN/GCALCC/ALTQ,  ALTX,  ALTER, 

DIMENSION  GAM  (72» 

DATA  GAM  /2«  0,1.0 *U. 0 

lOIOO.O, 1.402, 0150.0, 1.402,0200.0, 
20350.0, 1.402, C4CO.O, 1.402,0450.0, 
30600.0, l. 399, C650.0.1. 390,0700.0, 
40900.0,1.387, l COO. 0,1. 301, 1100.0, 
51400.0,  1.356, li 00. 0,1. 35 0,1 600. 0  * 
61900.0, 1.332, 2COO. 0,1. 328, 2 100.0, 
72400.0,  1.31  7,  26 00.0,  1.313,2  800.  0 , 
DIMENSION  VQCAS1I  1  55)  ,  VQCAS2I60 
EQUIVALENCE  I VEQCA SI l » . VQC A  SI  I  , 
DIMENSION  VC  A  SVl  1 1  55)  ,  VCASV2I60 
EQUIVALENCE  I  VCASEQI  II.VCASVII  , 


VCASKT  - 
VCASMP  - 


CALIBRATED 

CALIBRATED 


FLTSPOOO 
FLTSP001 
FLTSP002 
FLTSP003 
FL1SP004 
FL  ISP  005 
FLTSP006 
EL  TSP007 
ELTSP008 
FLTSP009 

fltspoio 

FLTSPOli 
FL  TSP012 
FL  TSPO  13 
FLTSP014 
AIRSPEED  IKTFLTSP015 
AIRSPEED  IMPFL  TSP016 


ALTER 


-  GEQPOT  ENT  I AL  PRESSURE 
ALTITUDE  (FT) 


GEOPH 

68  •  , 

.402  ,0750.0, 1.4 02, 0300. 0,1. 40  2, 
.401 ,0500.0,1.401,0550.0,1.400, 
.3  96,0  7  5  0.0,1.3  9  4,0800  .  0,  1.39  2, 
.374,1200.0,1.368,1300.0,1.362, 
.345 ,1700.0,1.340,1800.0,1.336, 
.325,2200.0,1.322,2300.0,1.319, 
.309,3000.0,1.306/ 

,  VEQCASI215) 

I VFQCASI156I , VQCAS2I 
,  VC  A  SE  0  (21 5  I 
(VCASEQ(156!«VCASV2) 


FLTSP017 
ELTSP01B 
FLTSP019 
El  TSP020 
FLTSP021 
FL  TSP022 
FLTSP023 
FLTSP024 
FLTSP025 
FL  TSP026 
FL  T  SP  027 
FLTSP028 
El T  SP  029 
FI  TSP030 
Ft.  TSP031 
FLTSP032 
FL  TSP033 
FLTSP034 


DATA  VGA SVl 

/ 

4.0 

9 

1.0 

,0.0  , 

30.0 

• 

7.0 

FL  T  SP  035 

A 

t 

8.0 

9 

o.c 

9 

0.0 

t 

0.0 

,  250.  , 

250. 

9 

500. 

9 

500. 

FLTSP036 

H 

• 

750. 

t 

75C. 

t 

2  0*0. 

0 

FLTSP037 

C 

9 

28.0 

9 

50CC. 

9 

0.0 

9 

0.0 

t  100.  , 

IQO . 

9 

150. 

9 

149.8 

FLTSP038 

D 

9 

200. 

t 

199.6 

9 

2  50. 

9 

249.2 

,  3  00.  , 

298.5 

9 

350. 

9 

347.8 

FL  T  SP  039 

F 

* 

400. 

• 

396.8 

9 

450. 

9 

445.6 

,  500.  , 

494.2 

9 

550. 

9 

542.4 

FL  T  SP  040 

F 

9 

bOO. 

t 

590. 

9 

650. 

9 

638. 

,  7  00.  , 

635.0 

FLTSP041 

6 

9 

26. 

t 

150CC. 

9 

O.U 

f 

0.0 

,  1 OQ .  , 

99.8 

• 

150. 

♦ 

149.2 

FI  T SP  042 

H 

9 

200. 

9 

198.2 

• 

250. 

9 

246.6 

,  300.  , 

294.6 

9 

350. 

9 

341.8 

FLTSP043 

1 

9 

400. 

t 

38  £ .  4 

9 

450. 

9 

434. 

,  500.  , 

479.1 

9 

550. 

9 

524. 

FL  T  SP  044 

J 

9 

600. 

t 

567. 

9 

650. 

9 

611. 

,  ?*0.0 

FLTSP045 

K 

9 

22.0 

9 

25CCC. 

9 

0.0 

9 

0.0 

,  1 00 .  , 

99.4 

9 

150. 

9 

148.2 

FL ISP  046 

L 

9 

200. 

9 

196.2 

t 

250. 

9 

243.1 

,  300.  • 

288.3 

9 

350. 

9 

333. 1 

FL  T SP  047 

M 

9 

400. 

9 

376.1 

9 

450. 

t 

418.1 

,  500.  , 

460. 

9 

550. 

9 

498. 

FLTSP048 

N 

9 

6*  0.0 

FL  T  SP  049 

0 

9 

18.0 

t 

35CC0. 

t 

0.0 

9 

0.0 

,  100.  , 

99. 

9 

150. 

9 

147. 

FL  T SP  050 

P 

9 

200. 

9 

193.4 

9 

2  50. 

9 

237.  9 

,  300.  , 

280.3 

9 

350. 

9 

321.4 

FLTSP051 

Q 

9 

400. 

9 

362. 

9 

450. 

9 

402. 

,  10*0.0 

/FLTSP052 

DATA  VCASV2 


FLTSPQ53 


♦♦♦continuing 
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A 

16.0 

9 

450C0. 

9 

0.0 

0.0 

*100. 

93.4 

*  150.  , 

145. 

FLTSP054 

8 

t 

200. 

9 

188.8 

9 

250. 

229.8 

«  300. 

269.1 

»  350.  * 

304. 

FLTSP055 

C 

9 

400. 

9 

340. 

9 

12*0.0 

FLTSP056 

0 

9 

12.0 

9 

550CO. 

9 

0.0 

0.0 

.100. 

97.4 

*  iso.  * 

141.7 

FLTSP057 

E 

9 

200. 

9 

182.6 

9 

250. 

220.5 

*  300. 

257. 

»  16*0.0 

/FLTSP058 

3ATA  VOCASl 

/ 

4.0 

1.0 

*  0.0 

30.3 

»  7.0 

FLTSP059 

A 

9 

3.0 

9 

o.o 

9 

0.0 

0.0 

*  250. 

253. 

*  500.  * 

500. 

FLTSP060 

8 

9 

750. 

9 

75C. 

9 

20*0.0 

FLTSP061 

C 

9 

28.0 

9 

500C. 

9 

0.0 

0.0 

*  100. 

130. 

»  149.8  » 

150. 

FLTSP062 

0 

• 

199.6 

9 

200. 

9 

249.2 

250. 

«  298.6 

300. 

*  347.8  * 

350. 

FLTSP063 

E 

9 

396.8 

9 

40C  • 

9 

445.6 

450. 

*  494.2 

500. 

*  542.4  * 

550. 

FLTSP064 

F 

9 

590. 

9 

600. 

9 

638. 

650. 

*  685. 

700. 

FLTSP065 

G 

9 

26. 

9 

150C0. 

9 

0.0 

0.0 

*  99.8 

133. 

*  149.2  * 

150. 

FL  TSP066 

H 

9 

198.2 

9 

20C. 

9 

246.6 

250. 

*  294.6 

300. 

*  341.8  * 

350. 

FLTSP067 

l 

9 

388.4 

9 

40C  • 

9 

434. 

450. 

•  479.1 

500. 

*  524.  . 

550. 

FLTSP068 

J 

9 

567. 

9 

60C. 

9 

611. 

650. 

»  2*0.0 

FLTSP069 

K 

9 

22.0 

9 

25CC0. 

9 

0.0 

0.0 

*  99.4 

133. 

*  148.2  * 

150. 

FLTSP070 

L 

9 

196.2 

9 

200. 

9 

243.1 

250. 

*  288.8 

333. 

.  333.1  , 

350. 

FL  TSP071 

M 

9 

3  76.1 

9 

400. 

9 

418.1 

450. 

»  460. 

500. 

*  498.  , 

550. 

FLTSP072 

N 

9 

6*0.0 

FL  TSP073 

0 

9 

18. 

9 

350C0. 

9 

0.0 

0.0 

*  99. 

130. 

*  147.  * 

150. 

FLTSP074 

P 

9 

193.4 

9 

20C. 

9 

237.9 

250. 

*  280.3 

300. 

*  321.4  * 

350. 

FLTSP075 

0 

9 

362. 

9 

400. 

9 

402. 

450. 

*  10*0.3 

/FLTSP076 

DATA  VQCA 

S2 

/ 

FLTSP077 

A 

16.0 

9 

450C0. 

9 

0.0 

0.0 

*  98.4 

too. 

*145.  . 

150. 

FLTSP078 

8 

9 

188.8 

9 

200. 

9 

2  29.8 

250. 

«  269.1 

300. 

*  304.  * 

350. 

FLTSP079 

C 

9 

340. 

9 

400. 

9 

12*0.0 

FLTSP080 

0 

9 

12.0 

9 

55CC0. 

9 

0.0 

0.0 

,  97.4 

100. 

*  141.7  * 

150. 

FLTSP081 

E 

9 

182.6 

9 

20C  . 

9 

220.5 

250. 

*  257. 

333. 

«  16*0.0 

f 

FLTSP082 

IFIALTER. 

GT 

.O.C.ANO 

.ALTER 

L  T. 55 000. 01  GO  TO  9 

FLTSP083 

AL  TER*  0.0 

CALL  XTRPI TAM »  GAMO ,  0.0*  SAMI 
S3  TAM  «  S3R  T I  TAM  I 
S3GAM  *  SORT  I  GAMO  I 

AJ  «  41.427  *  SORTITAM)  *  SQRTIGAMOI 
S3SIG  *  SQATIPAM  /  C  TAM  *  4.079311 
GJ  TD  (10*  20*  30*  40.  50.  60*  70)  *  IFSC 
AM  «  FSPO 

V3K  «  AM  *  AO  *  .592  5 
IFUFSC  .EQ.  4)  GO  TO  13 
V3KI  *  VOK  *  SQSIG 
IFdFSC  .E3.  31  GO  TO  14 
V3M  «  VOK  /  0.C69 
IFdFSC  .EQ.  51  GO  TO  15 
V3MI  «  VOK  I  /  C. 869 

1FIIFSC  .E3 •  6  .OR.  IFSC  .EQ.  7)  GO  TO  83 
CALL  XTRPI  VOK  I  *  VCASKT*  ALTER*  VEOCASl 
VCASMP  «  VCASKT  /  0.869 
G3  T3  80 
V3K  «  FSPO 

AM  *  VOK  *  1.6878  /  AO 

G3  T3  11 

V3M  «  FSPO 

V3K  «  VOM  *  0.869 

G3  T3  21 

V3K  I  ■  FSPO 

V3K  *  VOK I  /  SQSIG 


FLTSP084 

FLTSP085 

FLTSP086 

FLTSP087 

FLTSP088 

FLTSP089 

FLTSP090 

FLTSP091 

FLTSP092 

FLTSP093 

FLTSP094 

FLTSP095 

FLTSP096 

FLTSP097 

FLTSP098 

FLTSP099 

FLTSP100 

fltspioi 

FLTSP102 

FLTSP103 

FLTSP104 

FLTSP105 

FLTSP106 

FLTSP107 

FLTSP108 

FLTSP109 

FLTSP110 


••♦CONTINUING 


GO  n  21 

*0  V3M f  -  FSPO 

V3K  *  VOMI  *.869/SQSIG 
GO  n  21 

60  VCAS<T  =  FSPO 

CALL  XTRPJVCASKT,  VOKI,  ALTER*  VCASEQI 
V3K  *  VOKI  /  SCSIG 
VCASNP  =  VCASKI  /  0.869 
GO  TO  21 

TO  VCASMP  =  FSPO 

VCASKT  *  FSPO  *  0.869 
CAL.  XTRPIVCASKT*  VOKI*  ALTER*  VCASCQ) 
V3K  =  VOKI  /  SCSIG 
GO  TO  21 
80  RETURN 
END 


♦♦♦END 


FL  T  SP  1 1 1 
FLTSP  112 
FLTSP113 
FL  T  SP  1 14 
FLTSP115 
FL 1 SP l 16 
FLTSP117 
FL  TSP118 
FLTSP  1 19 
FLTSP120 
FL  TSP 121 
FLTSP  122 
FLTSP  123 
FI  TSP124 
FLTSP  125 
FLTSP  126 
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•  •♦BEGIN 


SUBROUTINE  ITERATIGt  VtX#N) 

IT  ERAOOO 

X*  1.1 

ITERA001 

0*  1.0001 

IT  ERA002 

W1*S3R  T I  G)*A  TAM  SQR Tf l . 0/3*1 Q**2-l.O ))) -AT  AN! SORT  IQ**2-1.0)> 

ITERA003 

I*  0 

IT  ERA004 

10 

I*  I  ♦  l 

IT  ERA005 

IF (  1 .  IE.  2001  GO  TO  20 

ITERA006 

WRITE  (6*  9900) 

IT  ERA007 

N*  2 

ITERA008 

RETJRN 

IT ERA009 

20 

W«  S3RT(GI*ATAMSQR  Tl  l. 0/3*1  X**2-l. Oil)  -AT AN! SORT (X**2-1.01) 

IT  ERA010 

IFIABSIV-W) .LT.  0.0001  IRE  TURN 

ITERAUll 

xi=  om-wii/u-wn*(x-oi 

IT  ERA012 

Qe  X 

IT  ERA013 

X*  Xl 

ITERA014 

Wl*W 

ITERA015 

GO  TO  10 

IT  ERA016 

9900 

FORNAT (*  FAIIEO  TO  CONVERGE  IN  I  TERAT*) 

IT  ERA017 

END 

ITERA018 

***  FNO 
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♦♦♦BEGIN 


SUBROUTINE  I  TRATEl  A3P  *B3  *B3P»10GP) 

ITRTEOOO 

IFlLOOPI  100t 1C2* 100 

ITRTE001 

100 

A31*  A  3 

ITRTE002 

B3 1*  B  32 

ITRTE003 

102 

A3=A3P 

ITRTE004 

B32*  B  3-B  3P 

ITRTEOOS 

IF ( LOOP  1 104* 1 CE* 1 04 

IT  RTE006 

104 

D\MS3R*B32-B31 

ITRTE007 

IF  (OVISOR.EO.C.I  GO  TO  106 

ITRTE008 

A3P*  (  R32*A 3  l-B  3l*A3 1  /D  VI  SCR 

ITPTE009 

106 

L30P*L0UP*l 

ITRTE010 

RETJRN 

IT  R7E011 

END 

ITRTE012 

♦♦♦END 
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•  •♦BEGIN 


SUBROUTINE  ITRATl  (  X,G*XMIN»  XMAX.NUMI  T,NSI GX  tNS  IGF  , KONV  I 
F  *  G 

IFIONV  .NE.  Cl  GO  TO  20 
C  ...  INITIAL  ENTRY 

XAVE  *  (XMAX  ♦  XM1NI  /  2.E0 

IF (  (XMAX  -  XI  *  (X  -  XMINI  .GE.  0.E0  *  30  TO  10 
X  x  XAVE 
GD  TO  70 
10  KONV  *  1 
LOOP  «  0 
FLEAST  *  1.E6C 
XS  «  X 
F$  «  F 
LIMITS  »  0 
NUMIT2  *  NUMIT/2 
XMNN  «  XM IN 
XM XX  x  XMAX 
20  DABSF  x  Ad S( FI 

IFIOABSF  .GT.  ABSI  FlEASTi  I  GO  TO  22 
C  ...  SAVE  BEST  VALUE 
SAVX  *  X 
FLEAST  *  F 

C  ...  TRY  TO  DECREASE  INTERVAL  OF  APPROXIMATION 

22  IF ( * IM  ITS  .EQ.  1)  30  TO  25 
IFIF»FS  .GT.  C.EOI  GO  TO  28 
LIMITS  x  1 

I F I X  .GT.  XSI  GO  TO  23 

XMNN  x  X 

XMXX  x  XS 

FMNN  «  F 

FM XX  *  FS 

GO  TO  28 

23  XMNN  »  XS 

XMXX  *  X 

FMNN  x  FS 

FM  XX  *  F 

GO  TO  28 

25  IF  I F* FMNN  .L T.  O.EOI  GO  TO  26 

XMNN  «  X 

FMNN  *  F 

FM XX  x  FMXX/2.F0 

GO  TO  28 

26  XMXX  «  X 
FM  XX  »  F 

FMNN  *  FMNN/2.F0 
C  ...  TEST  FOR  CONVERGENT 
28  C  x  ABSI  XMNN  I 

IF  I C  .EQ.  O.EOI  C  >  l.EO 

IF(  I  ABSI  XMXX  -  XMNN!  /  C  .LT.  5. E-l *1 .E l **(-NS  I  GX I  .AND.  DABS  F 
l  .LT.  5.E-in.Ei**I-NS!3F|  |  .OR.  DABSF  .EQ.  O.EO  I  GO  TO  80 
IF (LOOP  .GT.  Cl  GO  TO  30 
C  ...  PERTURB  INITIAL  GUESS 

X  X  x*  SIGN  I  l.E-2*X»  XAVE- XI 

IF  I  X  .EQ.  XSI  X  x  (  XAVE+XMI  N)  /2.E0 


IT  RT 1000 
ITRTIOOl 
ITRTI002 
ITRTI003 
IT  PT 1 004 
ITRTI005 
I T  R  T 1006 
ITRTI007 
ITRTIOOB 
IT  R  T 1 009 
ITRTI010 
ITRTIOll 
IT  RT 1 0 12 
ITRTI013 
IT  RT 1 0 14 
ITRTI015 
IT  RT 1 0 16 
ITRTI017 
IT  RT 1 018 
IT  RT 1 019 
IT  RT 1020 
ITRTI021 
IT  RT 1022 
ITRTI023 
IT  RT 1 024 
IT  RT  1025 
IT  RT 1 026 
ITRTI027 
IT  RT 1028 
IT  RT 1 029 
ITRTI030 
IT  RT  1031 
IT  RT 1032 
ITRT!033 
ITRTI034 
IT  RT  1 035 
ITRTI036 
IT  RT 1 03  7 
IT  RT  1038 
IT  RT 1 039 
ITRTI040 
ITRTI041 
IT  RT 1042 
IT  RT  1043 
ITRTI044 
IT  RTI045 
IT  RT 1046 
ITRTI047 
ITRTI048 
IT  R  T 1 049 
IT  RT 1 050 
ITRTI051 
ITRTI052 
ITRTI053 
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GO  TO  60 

C  ...  TEST  FOR  NONCONVERGENCE 
30  IFILOOP  .60.  NliMI  T)  GO  TO  90 
C  ...  REGJLA  FALSI 

IFlLlMITS  .NF.  I  .OR.  LOOP  .LE.  NUMIT2)  GO  TO  53 

X  »  (FMNN*XMXX  -  FMXX*XMNN)  /IFMNN  -  FMXX) 

IF (  ABS( FMMN  )  .GT.  l.El  .AND.  ABSIFMXXl  .GT.  1.61  .ANO. 

1  ABS(  FMNN-FRXXI/AMIN1I  ABSIFHNNI  «  ABS(FMXXI)  .GT.  1.62) 

2  X  *  (XMXX+XMNN)  /  2.60 
G3  T3  65 

50  OIV  *  F-FS 

IF  1 0 1 V  .63.  O.EO)  3  I  V  *  L.EO 

XI  «  IF*XS-FS*XI/0I  V 

XS  «  X 

FS  *  F 

X  *  XI 

C  ...  TEST  FOR  OUT  OF  RANGE 
60  I F I  X  .LE.  XMNN)  X  *  (  XS*  XMNN)  /2 .  EO 
IF  I X  .GE.  XMXXJ  X  *  (XS^XMXXl  /2.60 
C  ..,  INC*  EASE  ITERATION  COUNTER 
65  LOOP  *  LOOP ♦  1 
C  ...  RETURN 
70  RETURN 
C  ...  CONVERGENCE 
80  K3NV  *  2 
GO  TO  70 

C  ...  N3NC0NV6RGENC 6 
90  K3NV  *  3 

IFUIMITS  .EO.  1)  GO  TO  70 
X  *  SAVX 
G  «  FLEA  ST 
GO  TO  70 
ENO 


ITRTI054 
ITRTI055 
ITRTI056 
IT  RT 1057 
I T  R  T I  058 
I T  R  T I  059 
IT  RT 1 060 
ITRTI061 
IT  RT  1062 
IT  RT 1063 
ITRTI064 
IT  RT 1 065 
ITRTI066 
IT  RT 1067 
ITRTI068 
ITRTI069 
ITRTI070 
ITRTI071 
IT  RT 1072 
IT  RT  1 073 
ITRT1074 
IT  RT 1075 
ITRTI076 
IT  RT 1 077 
ITRTI078 
IT  RT 1079 
IT  RT 1 080 
ITRTI081 
ITRTI082 
IT  R T I  083 
IT  RT 1 084 
IT  P  T  1 085 
ITRTI086 
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•••BEGIN 


SUBROUTINE  ITRATAIN.X.F.XMI  N, XMAX.EPS, NUMIT.KONV I 
DIMENSION  A( 15,151,8115,  L5I  ,C|15,15)  ,01 14 I *S< 141  , PI  141 . 

1  X(N  ).FINI,DSI14I,XS114)  .ESI  141  ,TSI15)  «X  MININ)  .XMAX  INI « 

2  E3S(N)«G( 15. 15 ).E(15. 151.0(15. 15). RI15. 15). 

3  DF(  14) 

FJNCI Al.Bl.Cl ,M)  «  AMIN1 1 1  3 1-A1 1  , 1 Al-Cl 1 1 / M 
IF  I  <ONV  .GF.  1)  GO  TO  25 
C  .  INITIAL  ization 
KPT  a  1 
LOCAL  =  0 
KJT  *  2 
DNN  =  -1.E60 
OO  6  J*  l.N 

DNN  =  AMAXLIDNN*  A3 SIALOG 10 ( E PSI  J) ) I *1 . F-2 1 
OF  (  J  )  *  l  .El 
6  D  ( J  )  *  O.EO 

NN  *  N  ♦DNN+- 5 
NMN  *  NUMIT/NN41 
K3NV  *  l 
ST  *  I.E70 
Nl»  N  ♦  1 
1  JJJ*0 

L  *  0 

8  DO  10  J*  l » N 1 

10  A{ J,  l  I  *  l.EO 

KOMPUT  =  0 
K*  0 

PM  IN  *  1.E70 
OO  15  J*1,N 
DS(J )  *  D( J  ) 

DIJ)  *  XIJI 

SIJ)  =  FUNC I  X ( J) f  XMA  X(J)  *  XM I N( J )  .KPT*( NN-N) ) 

P(J)  *  AM  IN  II  •  IE  04  A  B  S(  X I  J I  )  ♦  1.  E— 4#  SI  J)  /  1 10*KPT  ))  * 

1  SIGNI  l.EO.  D( J I —  0 S ( J) ) 

IF  I  A  B  SI  P I  J  I  I  .GT.  PMIN)  GO  Til  15 
PM  IN  *  ABSIP(J)) 

15  CONTINUE 

DETMIN  *  l.F-9*AMINl(l.E0,PMIN**NI 
C  .  CONVERGENCE  TEST 
25  OO  35  J-l.N 

IF  I  A  BSI  FIJI)  .GT.  EPSIJU  GO  TO  40 
35  CONTINUE 
C  .  CONVERGENCE 
K3NV*  2 
GO  TO  440 

C  .  COMPUTE  CONVERGENCE  FUNCTION 
40  T*  O.E  0 

03  42  J=  l.N 
42  T*  T*  ABSIFI  J)  ) 

C  .  SAVE  BEST  VALUE 

IF  I T  .GC.  ST)  GO  TO  46 
IF  lw  .GT.  0)  L*L-1 
IFItOCAL  .EO.  Cl  1*0 
ST  *  T 


IT  KTAOOO 

ITRTA001 

ITRTA002 

IT  RTA003 

ITRTA004 

ITRTA005 

IT  RTA006 

IT  RTA007 

ITRTA008 

I TRTA009 

ITRTA010 

ITRTAOl 1 

ITRTA012 

ITPTA013 

ITRTA014 

ITRTA015 

ITRTA016 

ITRTA0L7 

ITRTA018 

ITRTA019 

IT  RTA020 

ITRTA021 

ITRTA022 

ITRTA023 

ITRTA024 

ITRTA025 

ITRTA026 

IT  RTA027 

ITRTA028 

ITRTA029 

ITR1A030 

ITRTA031 

ITRTA032 

ITRTA033 

ITRTA034 

ITRTA035 

IT  RTA036 

IT  RTA037 

ITRTA038 

IT  RTA039 

ITKTA040 

ITRTA041 

ITPTA042 

ITRTA043 

ITRTA044 

ITRTA045 

ITRTA046 

ITRTA047 

ITRTA048 

ITRTA049 

IT  RTA050 

ITRTA051 

1TRTA052 

ITRTA053 
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••♦CONTINUING 


03  44  J*  1,N 
XSIJI  >  X(JI 
FS I J  I  *  FC  J  » 

IF  t  LOCAL  .EO.  1)  GO  TO  44 

SUI  *  FUNC I  X  f  J  >  *  XM  A  X  (  J I  »XM I NI Jl  «NN- JJJ) 

44  C3NT INUE 
C  .  TEST  FIR  DISCONTINUITY 

46  IF(<UT  .EQ.  41  GO  TO  49 
03  48  J*  l*N 

IF  C  X  (  J  8  .F3.  X  S(  J  I »  GO  TO  48 
OF J  8  O.FO 
03  47  I  *  1*  N 

47  OF  J  *  AMAXIIOFJ,  48  SI  IF  (II -F  SIN  I /l  XI  Jl -XS I  JIM  I 
IFIOMPUT  .EQ.  01  3FIJI  *  AMAXIIOFJ,  OF  f  J ) ) 

IFIOFJ  .LE.  l.E2*DFIJ||  GO  TO  48 

LOCAL  *  l 
KJT  *  4 
GO  TO  49 

48  CONTINUE 

C  .  JJJ  COUNTS  THE  NLMBER  OF  ITERATIONS 

49  JJJ  =  JJJ+1 

IF  IJJJ-NNl  50,94,94 

C  .  rfplacf  worst  point 

50  IFIOMPUT  .EO.  0»  GU  TO  100 
TT*  O.EO 

DO  65  J  3 1,  N 1 
IFITSIJI— TTI  65,65,60 
60  TT*  TSUI 
MAXR3W=  J 
65  CONTINUE 

AIMAXROW.n  *  l.FO 
DO  85  J*  1, N 

A I M A XROW, J ♦  1 1  8  FIJI /EPS! Jl 
85  B( MAXROW, J I  *  X  J I 
TS I RA  XROW I*  T 
GO  TO  135 

C  •  STORE  8 F ST  VALUE 

94  DO  95  JT*1«  N 
FIJTI  *  FSIJTI 

95  XI  JT  1  *  X SI  JT ) 

KPT  «  KPTtl 

IF l <P  T  .GT.  NNN/21  LOCAL  *1 
IF  I <P  T  .GT,  NNM  GO  TO  98 
GO  TO  7 

C  .  NONCONV  ERGFNC  E 
98  KONV  *  3 
GO  TO  440 

C  •  BUILD  MATRIX  OF  POINTS 
100  K»K*1 

00  115  J  *1,  N 
AIK,  J  ♦  1 1  »  FI J  l/FPSI Jl 
115  BIK,  J  I  8  XI  J  I 
TSI<I*  T 

IF  I < -N  I  120,  120,130 
120  XI K I  *  XI K I ♦P I K I 

I F I <-  1  *  440, 4 4 C, 125 
125  XI  <-  1  I  *  OIK-ll 


ITRTA054 

IT  RTA055 

IT  RTA056 

IT  RTA057 

ITRTA058 

ITRTA059 

ITRTA060 

ITRTA061 

IT  RTA062 

ITRTA063 

ITPTA064 

ITPTA065 

IT  RTA066 

ITRTA067 

(TRTA068 

ITRTA069 

IT  RTA070 

ITRTA071 

ITRTA072 

IT  RTA073 

ITRTA074 

ITRTA075 

ITRTA076 

ITRTA077 

ITRTA078 

ITPTA079 

IT RTA080 

ITRTA081 

ITRTA082 

ITRTA083 

ITPTA084 

IT  RTA085 

IT  RTA086 

ITRTA087 

IT  RTA088 

IT  RTA089 

ITRTA090 

ITRTA091 

1TRTA092 

ITRTA093 

IT  RTA094 

ITRTA095 

ITRTA096 

ITRTA097 

IT  RTA098 

ITRTA099 

ITRTA1J0 

ITRTA101 

IT  RTA102 

ITRTA103 

ITRTA104 

ITRTA105 

ITRTA106 

ITRTA107 

IT  RT  A 108 

ITRTA109 

IT  RTA110 
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GO  TO  440 

C  .  SOLVE  L  INEAR  SYSTEM 
130  X  K-ll  *  OIK-11 
K3MRUT  *  1 

135  03  140  I  =  l  *  N 1 

G(  I,  N  1 1  *  A  I  I, Nil 
01  l,  N  1 1  *  l.EO 
03  1  40  J  *  1  *  N 
Q( It  J  I  *  B(  It J I 
140  G  (It  J)  =  A  (  I  t  J  > 

03  210  11*1, Nl 
03  200  Jl*l,Nl 
RllltJll  *  O.EC 
200  F(  lit  Jl)  *  O.EC 
03  210  K  l*  1  tN 
210  C(IltKl)  *  O.EC 
03  230  J 2*2 1 N  1 
03  230  I  2*  1 1 N  1 

R ( J  2 ,  J  2- 1 )  *  R(J2,J2-1I  ♦  Q ( I 2t  J2I **2 
230  El  J2,  J  2-  1 1  *  E(J2,J2-l)  ♦  3II?,J2)**2 
03  340  K  3*  1 1 N  1 
03  300  J3*K3,N1 
03  250  I  3*  1 1 N  l 

R(K3,J3)  *  R  I  K3t  J3)  ♦  Q(  I  3,  K3I  *0 1 1 3  t  J3I 

250  E(  K3,  J  3)  *  E(K2,J3i  ♦  Gl  I  3 1  K3I  *G  ( 1 3  t  J3I 

IF  (X  3  -  J  3 1  260,260,260 
260  IF  (  <  3  -  II  3CC, 300,270 

270  IF  U.E-14*FIK3,K3-ll-l.El4*E(K3,K3ll  275,340,340 
275  1F(1.E-14*RIK3,K3-II-1.E14*RIK3,K3II  300,  340,  340 

280  IF  ( EIK3.K3 1  .I  T.  l.E-60)  30  TO  340 
IF  ( T  (  K  3,  K3  I  .LT.  I.E-60I  30  TO  340 
E(  <  3,  J  31  *  E(K3,J3I/E(K3,K3I 
R(  K3, J  31  *  R(K3,J3)/R(K3,K3) 

03  290  14*1, Nl 

Q(  14,  J  3)  *  01  I  4,  J3I  -  Q(  I  4 ,  K3 1  *R  I  K3  ,  J3 1 

290  G(  14,  J  3)  *  G<  I  4,  J3)  -  G(  14,  K3I  *F  (  K3  ,  J31 

300  CONTINUE  ’ 

03  340  J 5*  1 , N 
01  310  15*1, Nl 

310  C(K3,J5)  *  CIK2.J5)  ♦  G(  1 5,  K3I  *8  ( I  5  ,  J5 1  /E  (  K3,  K3) 

340  CONTINUE 

03  350  17*2, Nl 
IT  *  NUl-I  7 
JT  *  IT  ♦  1 
03  350  J  7*  l , N 
03  350  K  7=J T,  N 1 

350  C(  IT,  J  71  *  C<  IT,J7I  -  E(IT,K7I*C(K7,J7) 

C  .  DETERMINE  IF  MATRIX  IS  SINGULAR 
OET  *  l.EO 
OET 1  *  l.EO 
03  3  6  0  JMT*  1»N1 
OET  *  OET*  AB S(E( JMT, JMT) ) 

360  0ET1  *  0ET1*  ABSt  Rl  JMT,JMTI  1 

IF ( OET l  ,GT.  OETM IN**2  .AN3.  OET  .GT.  l.E-201  GO  TO  380 
03  370  J*  1, N 
XI J  I  *  XSIJ  I 
370  FIJI  *  FSIJI 


ITRTA111 
IT  RT  A 1 12 
ITRTA113 
ITRTAU4 
I T  RT  A  11 5 
ITRTAU6 
ITRTAU7 
IT  RT  A  1 18 
ITRTAU9 
ITRTA120 
ITRTA121 
ITRTA122 
ITRTA123 
ITRTA124 
ITRTA  125 
ITRTA126 
ITRTA  127 
ITRTA  128 
ITRTA129 
ITRTA  130 
ITRTA131 
ITRTA132 
IT  RT  A  133 
ITRTA134 
ITRTA 135 
ITRTA 136 
ITRTA  137 
IT  RT  A  138 
ITRTA 139 
ITRTA140 
ITRTA 141 
ITRTA142 
ITRTA 143 
1TRTA144 
ITRTA  145 
ITRTA146 
ITRTA 147 
ITRTA148 
ITRTA 149 
ITRTA150 
ITRTA151 
ITRTA 152 
ITRTA 153 
ITRTA154 
ITRTA155 
ITRTA156 
ITRTA 157 
ITRTA158 
ITRTA159 
ITRTA 160 
ITRTA161 
ITRTA 162 
ITRTA163 
IT  RTA164 
ITRTA165 
ITRTA 166 
ITRTA167 
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G3  T3  8  1TRTA168 

C  .  TEST  PREDICTIONS  FPOM  MATRIX  SOLUTION  TO  KEEP  WITHIN  BOJNDS  ITRTA169 

380  L  *  L  + 1  ITRTA170 

D3  430  J*1,N  ITRTA171 

XIJI  =  Cll,JI  ITRTA172 

IF!  LOCAL  .EQ.  Cl  GO  TO  420  ITPTA173 

STE*  *  SI J|/KUT**ll-ll  ITRTA174 

IF!  ABSIXI  J  l-XSIJI)  .GT.  STEPI  XIJI  «  X  SI  J)  «•  S  IGN  IS  T  EP,  X  I J  I -XS  (  J  I  I  IT  RT  A  175 
G3  T3  430  ITRTA176 

420  IFIXIJI  .LE.  XPINIJII  XI  J»  « XSI  Jl -L*S  I  Jl  ITRTA177 

I F  ( X I  J  I  .GE.  XMAXIJII  XI  JI«XSt  J I  ♦  L*  S  (  Jl  ITRTA178 

430  C3NTINUE  ITRTA179 

440  RETURN  ITRTA180 

EMD  ITRTA 181 

***  END 
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♦♦♦BEGIN 


SUBROUTINE  L  STOAT!  N  TAPE  1 

LSTDAT01 

DIMENSION  CAR  0(201 

LSTDAT02 

INTEGER  CARD*  EN01 

LSTDAT03 

DATA  END1/*END  ♦/ 

L  S  T DAT 04 

DATA  NEWP/4NEWP4/ 

LSTDAT05 

J*NTAPE 

L STOAT 06 

REWIND  J 

LSTDAT07 

5 

LINE  -  0 

LSTDAT08 

WRITE  (6*101) 

L  STOAT  09 

101 

FORMAT  (  11HI  INPUT  3ATA/14H  CAPO  COLUMNS  * 

LSTDAT10 

l  40H 123456789 0234 5678901 2  34667890123456  7890 « 

LSTDATll 

2  40H  123456 789 C1234 5678901 2  3456 78901 2345S  7890/1H3) 

LSTDAT12 

10 

READ  (5*106)  CARO 

LSTDAT13 

IF  (CARD(l).EO  «END1 )  GO  TO  20 

L STOAT  14 

IF  (CARD!  1)  .EQ.NFWP  )  GO  TO  5 

L  STOAT  15 

WRITE  ( J , 106  )  CARD 

LSTDAT16 

WRITE  (6*103)  CARD 

LSTDAT17 

LINE*LINF*1 

L  ST  DAT  1 8 

IF  IL INE-551  1 C*5*5 

LSTDAT19 

102 

FORMAT  (  IHl) 

LSTDAT20 

106 

F3RNAT  (  20A4) 

LST0AT21 

103 

F3RMAT  (  14X*  2 CA4) 

L  ST  DAT 22 

20 

WR  I T E ( J,  106 )C  ARD 

LSTDAT23 

WR ITE ( 6* 103 )C ARD 

LSTDAT24 

WRITE  (6,104) 

LSTDAT25 

REWIND  J 

LSTDAT26 

104 

F3RMAT  (  9H0END  DATA ) 

LSTDAT27 

RETJRN 

LSTDAT28 

END 

ISTDAT29 

♦♦♦END 


••♦BEGIN 


SUBROUTINE  N0ZPLGI4  T,AEAT«XE ,  THE  TAD*  APB  *G 

AMMA,  PT  NPP*CDN* 

CT , FLAG, 

NOZPLOOO 

l  NOZERR  ,T10, 

CS,QM)DEL,MO,: 

TID,XMUM*ATMIN 

, ATMAX, X MEX IT  1 

NOZPL 001 

REAl 

MO*  K  1DCL3.K  IDC  S3,K1CVL3  ,KICVS3 

NOZPL  002 

01MEN  SION  K  1C  VL3(  71 )  ,  K1CVS3I93I 

NOZPL  003 

DIMENSION  K  IDCL3I  71  )  ,  KlDC 

S3193) 

NOZPL 004 

OATA 

K1DCL3  / 

5. »  l .  * 

0.,  2?., 

3., 

NOZPL 005 

A 

20.  « 

0. *  0. * 

-.017,  .002, 

-.021,  .004, 

-.022, 

NOZPL  006 

B 

.006* 

-.023*  .01* 

-.02,  .014, 

-.016,  .018, 

-.014, 

NOZPL  007 

C 

.02* 

-.015*  .024, 

-.019,  .028, 

-.025, 

NOZPL  008 

D 

20.* 

.6*  0.  * 

-.017,  .002, 

-.021,  .004, 

-.022, 

NOZPL  009 

E 

.  006* 

-.023,  .01* 

-.02,  .014, 

—.016,  .018, 

-.014, 

NOZPLOIO 

E 

.02* 

-.015,  .024, 

-.019,  .028, 

-.025, 

NOZPL  01 1 

G 

20.* 

•  9*  0.  * 

-.0295, .01  , 

-.0295, .014, 

-.029, 

NOZPL  012 

H 

.02* 

-.0285, .024, 

-.029,  .028, 

-.03,  .032, 

-.033, 

NOZPL  013 

I 

.036* 

-.036,  .038, 

-. 039,  .04 , 

-.042  / 

NOZPL  014 

DATA 

K IOC  S3  / 

5.  »  1 .  « 

0.,  22., 

4.  , 

NOZPL  015 

A 

20.* 

0. *  0. * 

-.034,  .002, 

-.03,  .004, 

-.026, 

NOZPL  016 

B 

.006* 

-.023,  .008, 

-.021,  .012, 

-.019,  .016, 

-.018, 

NOZPL  017 

C 

.02* 

-.018,  .024, 

-.019,  .03, 

-.022, 

N0ZPL018 

D 

20.* 

.6*  0.  « 

-.034,  .002, 

-.03,  .004, 

-.026, 

NOZPL  019 

E 

.006* 

-.023,  .008* 

-.021,  .012, 

-.019,  .016, 

-.018, 

NOZPL  020 

F 

.02* 

-.018*  .024, 

-.019,  .03, 

-.022, 

NOZPL021 

G 

20.* 

.8*  0.  * 

-.075,  .002, 

-.064,  .004, 

—  .056, 

NOZPL  022 

H 

.006* 

-.0495*. 008* 

-.0445, .012, 

-.037,  .016, 

-.031, 

NOZPL 023 

I 

.02* 

-.027,  .024, 

-.025,  .03, 

-.023, 

NOZPL 024 

J 

20.  ♦ 

•  9*  0. * 

-.  104,  .002, 

-.08,  .004, 

-.064, 

NOZPL  025 

K 

.006* 

-.055,  .008, 

-.05,  .012, 

-.046,  .016, 

-.043, 

NOZPL 026 

L 

.02, 

-.041,  .024, 

-.039,  .03, 

-.037  / 

NOZPL 027 

DAT/, 

K1CVL3  / 

5.,  1., 

0.  ,  22  .  , 

3., 

N0ZPL028 

A 

20.  , 

0. *  0.  , 

0.  ,  .004  , 

-.0002,. 008, 

-.0005, 

NOZPL 029 

B 

.012* 

-.0008,. 016, 

-.001,  .02, 

-.0013, .022, 

-.0015, 

NOZPL  030 

C 

.024, 

-.0016, .026, 

-.0018, .028, 

-.0019, 

N0ZPL031 

D 

20.  , 

.6,  0. , 

0.  ,  .  004  , 

-.0002, .008, 

-.0005, 

NOZPL  032 

F 

.012* 

-.0008, .016, 

-.001,  .02  , 

-.0013  ,.022, 

-.0015, 

NOZPL  033 

F 

.024, 

—  . 00 16*. 026 , 

-.0018, .028, 

-.0019, 

NOZPL 034 

G 

20.* 

•  9,  0. , 

0.  ,  .004  , 

.0003,  .006, 

.0002, 

NOZPL  035 

H 

.008, 

-.0007, .012, 

— .  0  02  3, .016, 

-.0035, .02, 

-.0044, 

NOZPL  036 

I 

.026* 

-.0053, .032, 

—.0  06  ,  .  04  , 

-.0065  / 

NOZPL  037 

DATA 

K  1C  VS  3  / 

5. ,  1. , 

0.,  22., 

4.  , 

NOZPL  038 

A 

20., 

0. ,  0.  , 

0.  ,  . 002  , 

-.0001  ,.004, 

-.0002, 

NOZPL  039 

U 

.006, 

-.0004, .008, 

-.  0006, .012, 

— .  001 1  ,.016, 

— .00 16, 

NOZPL  040 

C 

.02* 

-.0021, .024, 

-.0026, .028, 

— . 0030  , 

NOZPL  041 

0 

20.* 

.6,  0. , 

0.  ,  . 002  , 

-.0001  ,.004, 

-.0002, 

NOZPL  042 

E 

.  006* 

-.00  04,  .008, 

-.0  006, .012, 

-.0011  ,.016, 

-.0016, 

NOZPL 043 

F 

.02, 

-.0021, .024, 

-.0026, .02  8, 

-.0030, 

N0ZPL044 

G 

20.* 

.8,  0. , 

0.  ,  .002  , 

.0004,  .004, 

.0006, 

NOZPL  045 

H 

.006* 

.0007,  .008, 

•  0003  #  .012, 

-.0008,  .016, 

-.0019, 

NOZPL 046 

I 

.02* 

-.003,  .024, 

-.0041, .028, 

-.0052, 

NOZPL  047 

J 

20., 

.9,  0.  , 

0.  ,  . 002  , 

.0009,  .004, 

.0015, 

NOZPL  048 

K 

.006* 

.0019,  .008, 

.0011,  .012, 

-.0005, .016, 

-.0019, 

NOZPL 049 

L 

.02* 

-.0032,. 024, 

-.0045,  .028, 

-.0057  / 

NOZPL  050 

NOZERR*  0 

NOZPL  051 

Fl  AG* 

4.0 

NOZPL  052 

CT  ID 

*  1. 

NOZPL  053 

•**CONT 1NJ ING 
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GAME) 3 a  (GAMMA  *  1.  0)  /( GAMMA- 1  •  0) 

GAMBA*  l.O/GAMBO 
GAM  1  *  GAMMA- 1.0 
GAP  1  a  GAMMA  *1  .0 
PRCAIT  =  (  GAP  1 /2. )** (GAMMA/GAMI ) 

IF  ( P  TNPP  .GT.  PRCRITIGO  TO  10 
NQZERR*  1 
MR  ITE  (  6»  99151 
G3  T3  90 

3  THETAPa  THE  TAD*0.01  74533 
RC0S1*  COSI  THE  TAP  I 
RC'1S2*  COSI  THE  TAP  )**2 
RE*  SQRTIAPB/3. 1415921 
Rl*  RE*  TAM!  THETAP)  *XE 
AEa  A EAT*A T 

RS*IR  l*RCOSi*(  1.0-RC0S2)*SQRT(Rl  **2*RC0S2*  AE/3.141592 
l  ♦RC3SI*!  2.C-RC0S2I II /(RCOSl *(2.0-RC 0S2 )) 

RT  *  R  S-R  CO  S  2  *  (  R  S-R 1 ) 

XT*  (Rl-RT)/SlN(THETAPt 
S*  (RS-RTI/RCOSl 
CS*  RCOSl 

IF  ( 3M00EL  . GE  •  2.  )C  S*C  S-.00  7 
THETARa-THETAP 
AMF*  l.OOOl 
AEASK*  1.0 

IF ( AEA T  .E3.1.CI  GO  TO  50 
ABE*  0.9 
AME*  1.0 
IC3UMT*  0 
AEAP*  AEAT/CDN 
20  ICOUN  T*  (COUNT*  1 

IF ( ICOUNT.l E  •  2001  GO  TO  30 
MR  ITE  I  6,  9900) 

NOZERR*  1 
RETURN 

30  AEASA»1.0/AME*((2.0/GAPl*(l.0*GAMl/2.0*AME**2H**IGAPl/  (2.*GAM1 
IF  ( ABS(AEAP-AEASK  I.L  T.  0.001)  GO  TO  50 
IF ( AEAP-AEA  SK )  35*35,40 
35  AM E*  ABE*(AEAP-ASSE)/(AEASK-ASSEI*(AME-ABEI 
G3  TO  20 
40  ASSE*  AFASK 
ABE*  AME 
AME*  AME*0. I 
GO  TO  20 

50  PEPTM*  (  l.0*GAMl/2.  0*AME**2)M(-GAMMA/GAMll 
FSAA*  PEPTN*AEASK*(  1  •  0*GAMMA *AME  4*2 ) 

PTPINV«  1.0/PTNPP 

XMOM  *  PEPTN*AEASK*GAMMA*AME**2*PTPI  NV*AT  4C0N 
XMEXIT  *  AME 

FIPTA*  GAMMA*  SOR  T(  2  •  0/GAM1*!  2.0/GAP1 )  4*GAMB0*I  l.  D-PT  PI  MV  ** 

1  (GAMI/GAMMA  )  )  ) 

TIO  *  FIPTA 

CTE*  !CS*FSAA-PTPIMV*AEASK)  /FIPTA 

IF1AEASK.EQ  •  1.0)  CTE*  CTE*  PTPI  NV*I l.  O/CDN-l  .0)  / FI PTA 
IFIMO  .IT.  1 .  )G0  TO  95 
A*R  1 

B«  -TAN(  THETAP  I 


N0ZPL054 
N0ZPL055 
N0ZPL056 
N0ZPL057 
NOZPL058 
MOZPL059 
N0ZPL060 
MOZPL  061 
MOZPL  062 
NOZPL  063 
NOZPL064 
NOZPL 065 
NOZPL  066 
NOZPL  067 
NOZPL  068 
NOZPL 069 
NOZPL  070 
NOZPL  071 
NOZPL 072 
N0ZPL073 
NOZPL 074 
NOZPL  075 
NOZPL 076 
NOZPL077 
NOZPL078 
NOZPL 079 
NOZPL  080 
N0ZPL081 
NOZPL  082 
NOZPL  083 
NOZPL 084 
NOZPL 085 
NOZPL  086 
NOZPL 087 
NOZPL 088 
)) )NQ  ZPL  089 
NOZPL 090 
NOZPL  091 
NOZPL 092 
NOZPL 093 
NOZPL 094 
NOZPL  095 
NOZPL 096 
NOZPL 097 
NOZPL 098 
NOZPL  099 
NOZPL  100 
NOZPL 101 
NOZPL  102 
NOZPL  103 
NOZPL  104 
NOZPL  105 
NOZPL  106 
NOZPL 107 
NOZPL  108 
NOZPL 109 
NOZPL  110 
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VE*S3R  TIGAMBO  )  *ATAM  (  SQRTd.  O/GAMBO*!  AME  **2-1.0  1)1  -AT  ANISQRT  I 
1  AME**2-1.C)) 

A1EXP*  SQRTI  2.C/GAMl*(PTNPP**(GAMl/GAMMA)  -1.0)  ) 

AMVEXP*  S3R  T (  GAMBO) *ATAN( SOR TIGAMBA* ( AMEX P**2-l .3  I  I >  —AT ANISQRT ( 
1  AME  XP**2- 1*0)1 

AJEXP  *  A  TAM  (  1  .C/SOR  T(  AMEXP**2-l .  Oi ) 

THEXP*  THETAR ♦  AMVEXP-VE-AUE  XP 
THMAX*  ATAN(  (  RE-R  SI /XE ) 

IF ( THEXP  ,LE.  THMAX)  GO  TO  60 
THEXP*  THMAX 

RM  AX*  SORT!  GAMBO*TANI  SQR  T(  l .  O/GAMOO)  *(  THEX P-THET  AR*VE* l .570796) 

12  *1.0) 

ANVEXP*  SQ»  TIGAMBO)  *A TANI  SQR  T<  1 .  O/GAMHO*!  RMAX**2 -1  .0 ) ) ) - 
I  ATAM(SQRT(RMAX**2-1.0)  ) 

60  BB«  TANC  THEXP  ) 

AA*  RS 

XI*-(  A-AA1/IB-8B) 


NOZPL  111 
MO  ZPL  112 
NOZPL  113 
NOZPL  114 
NOZPL  115 
NOZPL  116 
NOZPL  117 
NOZPL  118 
NOZPL  119 
NOZPL  120 
)**N0  ZPL  121 
NOZPL  122 
NOZPL  123 
NOZPL  124 
NOZPL  125 
NOZPL  126 
NOZPL  127 


R  I  *  A  ♦B*  XI 
P1PTN*  PEPTN 
RSI*  RT 

NUM»( AMVEXP-VE  )/. 01 74533 

IF ( MOM  .LT.  5)  NUM* 5 

RUM*  NUM 

CTO*  0.0 

PSPTM*  0.0 

03  60  J=  1* NUM 

Q*  J 

VL*  V E*  Q/RUM  *(  AMVEXP-VE) 

CALL  I TERATI  G  A  MHO  t  VI  »  AML  tNOZERR) 

IFiMOZERR.EQ.OiGO  TO  65 
WRITE  (6,  9905) 

G3  T3  90 

65  AUL*  ATANI  l.O/SQRTI  AML **2-1.01) 

TH6TL*  THETAR  ♦VL-VE-AUL 
BB*  TANITHETL) 

AA*  RS 

XL *-(  A-AA)/(B-BB) 

RL*  A  4-8*  XL 
VC*  2.0*VL 

CALL  ITERATIGAMBO, VC  tXMC  tNOZERR) 

IFmZERR.EQ.OIGO  TO  70 
WRITEI6, 9905) 

G3  T3  90 

70  PCPTN*  (  l.O+GAPl/2.  0*XMC**2»  **I  -GAMMA/GAMI ) 

CTO*  CTDn.O/F  IP  TA*I  0.  5*CPl  PTN*PCPTN)-PTPI  NV)  *  (RS  l**2-RL**2) 

1  *3. 141592/1  CON*A  T ) 

RSI*  RL 
P1PTM*  PCPTN 

IF  I  XL  .EQ  •  XE)  PSPTN*  PCPTN 
80  C3NTINUE 

PBPTM*  4, 312/P TNPP** l. 975 
PBPTN*  0.517*PSPTN»  0.0046 
PB 2PTN*PTP  INV 

IFPBPTN.GT.  PB2PTN)  PBPTN*  PB2PTN 
IF! *B IPTN.GT •  PBPTN)  PBPTN*  PB1PTN 
CTBO*  (P8PTN-P  TPINV)  *APB/!CON*AT*FI  PTA) 

IF  (PEPTN  .GT.  PTPINV)  CTIO  *  ( F  SAA-PTPl  NV*AEASK)  /  F  1  PT  A*CT  D*CTBD 


NOZPL  128 
NOZPL  129 
NOZPL  130 
NOZPL  131 
NOZPL  132 
NOZPL  133 
NOZPL  134 
NOZPL  135 
NOZPL  136 
NOZPL  137 
NOZPL  138 
NOZPL  139 
NOZPL  140 
NOZPL  141 
NOZPL  142 
NOZPL 143 
NOZPL  144 
NOZPL  145 
NOZPL  146 
NOZPL  147 
NOZPL  148 
NOZPL  149 
NOZPL  150 
NOZPL  151 
NOZPL 152 
NOZPL 153 
NOZPL  154 
NOZPL  155 
NOZPL  156 
NOZPL  157 
NOZPL  158 
NOZPL  159 
NOZPL 160 
NOZPL 161 
NOZPL  162 
NOZPL 163 
NOZPL  164 
NOZPL  165 
NO  ZPL  166 
NOZPL  167 
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CT*  CTE*CTD*CTBD 
90  RETURN 

95  CALL  XTRPI  1.-CHD»DELDL,M0,KICVL3) 

CALL  XTRP  C 1 .-CTID  #D£  LD  S*M0»  K1C VS3) 

CALL  XTRP { l .-C  710  »0F  LCL .MO. KiDC  L3) 

CALL  XTRPf  1.-CTI0.DELCS.M0.K1DCS3) 

DELD  *  DELDS*!  AT-ATMIN)  *(DF  LDl-DELUS)  / (AT MAX -ATM l N) 

OELC  *  OELCS*(AT-ATMlN)*(DELCL*-DELCS)/(AT  MAX -AT  MI  N) 

CT  *  DELO  ♦  OELC  ♦  CTIO 
G3  TO  90 

9900  FORMAT!*  NOZZLE  EXIT  MACH  NUMBER  ITERATION  FAILED*) 

9905  FORMAT!*  N3ZPLG— MACH  ITERATION  FAILED  AT  LOCAL  EXPANSION  ANGLE*) 
9915  FORM  AT  I*  N3ZPLG—  PLUG  NOZZLF  MUST  BE  CHOKED*) 

END 


NOZPL  166 
NOZPL  169 
NOZPL 170 
NOZPL  171 
NOZPL 172 
NOZPL 173 
NOZPL  179 
NOZPL 175 
NOZPL  176 
NOZPL 177 
NOZPL  178 
NOZPL  179 
NOZPL 180 
NOZPL 181 


***  END 
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♦•♦BEGIN 


SUBROUTINE  NOZZLE  (A  T  ,ATFLOW,AEAT  .GAMMA,  PTT  PFS  •  QMODEL*NT  •  FL ,  CON,  CTtNOZZLOOO 
1  FLAG'NOZERR  «  TID,C  S»XMOH»;  TIO,  A  ,  XMfXITl  NOZZLOOl 

DIMENSION  FIGB1AU57),  FIGBIBI401  •  FIGBl  1 197)  NOZZL002 

DIMENSION  FIG11A  (157)  ,  FIGUBIU2)  ,  FIG1K269)  N0ZZL003 

F3UIVALFNCE  I  F  IGl  IA  {  II  ,F  I  Gl  I  III)  ,  <F IG1 1 B ( l ) , F IG1 1 < 1581) ♦  N0ZZL004 

1  (FIGB1A(1)»FIGB1(I))»  (  FIGB1BI1)  ,F  I  Gflll  1 5  8  I)  N0ZZL005 


OATA 

FIG1IA  / 

5., 

1 .  , 

0.  , 

24.  , 

11.  , 

N0ZZL006 

A 

14., 

0  •  9 

1.025, 

.997, 

1.1, 

.997, 

1.2, 

.997, 

NUZZL  007 

B 

1.3, 

.997, 

1.4, 

.997, 

1.5, 

.997, 

1  .56, 

.997, 

N0ZZL006 

C 

0., 

0., 

0.  , 

0.  , 

0., 

0.  , 

0., 

0., 

NOZZL009 

D 

14., 

2., 

1.025, 

.997, 

l.l. 

.997, 

1.2, 

.997, 

NDZZL010 

E 

1.2, 

.997, 

lr  25, 

.996, 

1.3, 

.995, 

1.3, 

.995, 

N0ZZL011 

F 

0., 

0., 

0. , 

0.  , 

0., 

0.  , 

0., 

0., 

NOZZL  012 

G 

20., 

4.  , 

1.025, 

.997, 

1.1, 

.997, 

1.2, 

.997, 

N0ZZL013 

H 

1.3, 

.997, 

1.33, 

.997, 

1.33, 

.997, 

1.4, 

.9965, 

NOZZL014 

I 

1.5, 

.996, 

1.6, 

.9952, 

1.63, 

.995, 

0., 

0., 

N0ZZL015 

J 

22., 

6.  , 

1.025  , 

.997, 

1.1  , 

.997, 

1.2, 

.997, 

NOZZL016 

K 

1  •  4? 

.997, 

1.5, 

.997, 

1.56, 

.997, 

1  .56, 

.997, 

N0ZZL017 

L 

1.6, 

.996, 

1.7, 

.9945, 

1.8  , 

.993, 

2.0, 

.9928, 

NOZZL  018 

M 

22., 

8., 

1.025, 

.997, 

1.06, 

.997, 

1.06, 

.997, 

NOZZL  019 

N 

l.l. 

.9955, 

1.2, 

.9945, 

1.3, 

.995, 

1.4, 

.9955, 

NOZZL  020 

n 

1.5, 

.996, 

1.6, 

.9965* 

l.B, 

.996, 

2.0, 

.994, 

NOZZL  02 1 

p 

22., 

10., 

1.025  , 

.997, 

1.045, 

.997, 

1.045, 

.997, 

NO  ZZL  022 

0 

1.1, 

.993, 

1.2, 

.991, 

1.3, 

.991, 

1.4. 

.9915, 

NOZZL  023 

R 

1.5, 

.992, 

1.6, 

.9925, 

1.8, 

.9935, 

2  .0, 

.994, 

NO ZZL 024 

S 

22., 

12., 

1.025, 

.997, 

1.032  , 

.997, 

1.032, 

.997/ 

NO  ZZL  025 

DATA 

F  IG11B  / 

NO ZZL 026 

A 

l.l. 

.9915, 

1.2, 

.9875, 

1.3, 

.986, 

1.4, 

.9862, 

NOZZL027 

B 

1.5, 

.9865, 

1.6, 

.9875, 

1.8, 

.989, 

2.0, 

.990, 

NO ZZL 028 

C 

22., 

14., 

1.025, 

.997, 

1.032  , 

.997, 

1.032, 

.997, 

NO  ZZL  029 

D 

1.1, 

.990, 

1.2, 

.9835, 

1.3, 

.9815, 

1.4, 

.981, 

NO  ZZL  030 

E 

1.5, 

.981  , 

1.6, 

.9612, 

l.B, 

.982, 

2.0, 

.9835, 

N0ZZL031 

F 

22., 

16. , 

1.025, 

.997, 

1.025, 

.997, 

1.1, 

.988, 

NO  ZZL  032 

G 

1.2, 

.9815, 

1.3, 

.978, 

1.4, 

.976, 

1.5, 

.975, 

NO  ZZL  033 

H 

1.6, 

.975  3, 

1.7, 

.9756, 

1.8, 

.976, 

2.0. 

.977, 

NO  ZZL  034 

I 

22., 

18., 

1.025, 

.997, 

l.l. 

.986, 

1.2, 

.978, 

NO ZZL 035 

J 

1.3, 

.973, 

1.4, 

.971, 

1.5, 

.969, 

1  .6, 

.968, 

NO  Z  ZL  036 

K 

1.7, 

.968, 

1.8, 

.  9b  8 , 

1.9, 

.9685, 

2.0, 

.969, 

N0ZZ1.037 

L 

22., 

20., 

1.  025, 

.997, 

l.l  , 

.9845, 

1.2, 

.976, 

NO  ZZL  038 

M 

1.3, 

.970, 

1.4, 

.966, 

1.5, 

.963, 

1  .6, 

.9622, 

NO ZZL 039 

N 

1.7, 

.9618, 

1.8, 

.9615, 

1.5, 

.9612, 

2.0, 

.9612  / 

NO ZZL 040 

DATA 

FIGHIA  / 

4., 

1.  , 

0.  , 

24.  , 

8.  , 

NOZZL  041 

A 

22., 

0. , 

1.0, 

0.  , 

1.05, 

.001, 

1.1, 

.002, 

NOZZL  042 

B 

1.2, 

.004, 

1.3, 

.006, 

1.4, 

.011, 

1  .6, 

.019, 

NO  ZZL  043 

C 

1.8, 

.026 , 

2.2, 

.04, 

3.0, 

.062 , 

3.8, 

.  07  6  , 

NOZZL  044 

D 

22., 

3., 

1.0, 

0.  , 

1.05, 

.001, 

1.1, 

.002, 

NOZZL  045 

E 

1.2, 

.004, 

1.3, 

.008, 

1.4, 

.oil. 

1.6, 

.019, 

NO  ZZL  046 

F 

1.8, 

.026, 

2.2, 

,04, 

3.0, 

.062, 

3.8, 

.076, 

N0ZZL047 

G 

22.* 

5., 

1.0, 

0.  , 

1.05, 

.002, 

1.1, 

.004, 

NO  ZZL  048 

H 

1.2, 

.007, 

1.3, 

.011  , 

1.4, 

.015, 

1.6, 

.026, 

NOZZL  049 

I 

1.8, 

.037, 

2.2, 

.057, 

3.0, 

.  09  , 

3.8, 

.11, 

NO  ZZL  050 

J 

22., 

7.5, 

1.0, 

0.  , 

1.05, 

.0025, 

1.1, 

.005, 

NOZZL  051 

K 

1.2, 

.01, 

1.3, 

.016, 

1.4, 

.024, 

1.6, 

.041, 

NOZZL  052 

L 

1.8, 

.057, 

2.2, 

.  086 , 

3.0, 

.136, 

3.8, 

.164, 

NOZZL  053 

♦•♦CONTINUING 


113 


42 


M 

22., 

10., 

1.0, 

0.  # 

1.05, 

•  004, 

1.1* 

.0075, 

NOZZL  054 

N 

1.2, 

.012, 

1.3, 

.022, 

1.4, 

.032, 

1  .6, 

.053, 

NOZZL  055 

0 

1.8, 

.074, 

2.2, 

.113, 

3.0, 

.18, 

3.8, 

.216, 

NOZZL  056 

P 

22.* 

15., 

1.0, 

0. « 

1.05, 

.006, 

1.1, 

.012, 

NOZZL  057 

0 

1.2, 

.025, 

1.3* 

.04, 

1.4, 

.058, 

1.6, 

.094, 

NQZZL058 

R 

1.8, 

.130, 

2.2, 

.202, 

3.0, 

.315, 

3.8, 

.38, 

NO ZZL 059 

S 

22., 

20., 

1.0, 

0.  , 

1.05, 

.008, 

1.1, 

.014/ 

NO ZZL 060 

OAT  A 

FIGB1B  / 

NOZZL  061 

A 

1.2, 

.028, 

1.3, 

.048, 

1.4, 

.07, 

1 .6, 

.124, 

NQZZL062 

B 

1.8, 

.18, 

2.2, 

.268, 

3.0, 

.375, 

3.25, 

.  40  , 

NO  ZZL  063 

C 

22., 

90., 

1.0, 

0.  , 

1.05, 

.009, 

1.1, 

.017, 

NOZZL  064 

0 

1.2* 

.034, 

1.3, 

.057, 

1.4, 

.082, 

1.5, 

.111, 

NOZZL  065 

E 

1.6, 

.14, 

1.8, 

.195, 

2.2, 

.302, 

2.77, 

.40  / 

NOZZL  066 

FLAGAT* 1* 

1  ** (2  »*G12GMl ) 


75 

C*** 


RAO  «  .0174533 

G12GM 1  »  IGAMMA+l)/(2.*( GAMMA-1 • ) ) 

PI  *  3.1415927 
GR  AV  *  32.174 
RRR  «  1716.5 
FLG220  *  0. 

NOZERR  *  0 
LOOP  *  0 
CT 10*  1.0 
QMT  «  1. 

ATFLAT  *  CON 
PFPFS  *  PTTPFS 
PFSPTT  *  l./PTPFS 
FL AGAT*0. 

IF (PTPFS  .LT.  l(GAMMA*l.)/2. I  ♦*  I  GAMMA/ (GAMMA-1 .1)1 
FLAGMT*0. 

DM  T*  •  1 

FPTATS  *  GAMMA*  SORT  I  (2./I  34MMA-1  •(  I  * <2. / ( GAMMA*l  •  I 
l  *(  1. -PFSPTT** ((GAMMA- l.  I /3AMMA I  H 
AE  «  AEA  T*A  T 
IF  I M  T  .EO.  II  GO  TO  75 
RT  «  SQR  T(  A  T/P  1 1 
RE  *  SORTIAE/PI) 

THET  «  ATAMI IRE-RT1  /  SQR H  F L-IRE-RTI **2  II 
THETA  »  THE T /RAO 
GO  TO  80 

FSAATS  *  PEP  TT*AEAT  S*(  l.*G4MMA*QME**2l 
CAL-  XTRPI AEATS*  CS.  THETA,  FIGUI 
IF13M00EL  .EO.  2. ICS  *  CS-.007 
XMEXIT  *  OME 

XMOM  *  PEPTT*AEATS*GAMMA*QME**2*PTTPFS*ATFL0W 

IF  (PEf'TT  .GT.  PFSPTTI  CTIO  «  I F  SAATS-PFSPTT*AEAT  S  l/FPT  ATS 

TIO  «  FPTATS 

CT  *  (  CS*FSAA  T  $-  PFSP  TT*AEATSI /FPTATS 
Flag*  4. 

GO  TO  500 

IFIFLAGAT  .EQ.  II  30  TO  162 
CONVERGENT  NOZZLE  —  CHOKEO 
CS  *  .997 

IFI3M0DEL  .EO.  2. ICS  *  CS-.007 
AT  FA  T  S  *  l. 

AEATS  *  l. /ATFLAT 

PEPTT  *  ( ( GAMMA* 1. 1  / 2 • I ** ( -GAMMA/ (GAMMA-1 • I ) 

PM  AX  *  (  (GAMMA* 1.1/2. I **(  GAMMA/lGAMMA-l.  I ) 


N0ZZL067 
N0ZZL068 
NOZZL  069 
N0ZZL070 
NOZa07l 
NOZZL  072 
NOZZL  073 
NOZZL  074 
NOZZL  075 
NOZZL  076 
NOZZL  077 
N0ZZL078 
NOZZL  079 
NOZZL  080 
NOZZL  081 
NO  ZZL  082 
NOZZL  083 
NOZZL  084 
NOZZL  085 
NOZZL  086 
NO  ZZL  08  7 
NQZZL088 
NO  ZZL  089 
NOZZL  090 
NOZZL  09 1 
NOZZL  092 
NO  ZZL  093 
NO  ZZL  094 
NOZZL  095 
N0ZZL096 
NOZZL  097 
NO  ZZL  098 
NOZZL  099 
NOZZL  100 
NOZZL  101 
NOZZL  102 
NOZZL  103 
NOZZL  104 
N0ZZL105 
NOZZL  106 
NOZZL  107 
NOZZL  108 
NOZZL  109 
NOZZL  110 


•**CONT INJ ING 


111* 


77 


80 

90 


110 

120 


140 


145 

150 


PEPFS  *  PEPTT*PTTPFS  NOZZL  111 

FSAAS  *  ATFA  TS*PEPT  T*(  l.+GAMMA)  NOZZL  112 

PVAAB  *  PEPTT  NOZZL  113 

flag*  4.  nozzl  114 

IF  IPTTPFS  .GE.  A)  GO  TO  77  N0ZZL115 

FLAG  *  5.  NOZZL  116 

PVATB  *  PFSPTT  ♦  I  PE  PTT*  PF  SPTT)  *C  PTTPF  S-PMAXI  /  (A-PMAX I  N0ZZL117 

XMOM  =  GAMMA *PTPF  S*P  VAR8*AE  N0ZZL118 

TIO  *  FPTATS  NOZZL  119 

XMEXIT  *  1.  NOZZL  120 

CT  *  (CS*(  F  SA AS+PVAR 8*(  AEA TS-A TF ATS)  -  PFSPTT*AEATS)  >/FPT  ATS  NOZZL  121 


IF  I P  TTPFS  .GT.  PVA<8)CT10  *  (FSAAS  ♦  PVARBM AEATS -AT FATS  I 
l  *  AEATSI/FPTATS 
G3  TO  500 

CALL  XTRPIAEAT  ,  DP  TO  T »  THETA*  F  I  GO  1  ) 

QMT  =  1. 

IFILOOP  .GT.  5CIG0  TO  480 
LOOP  *  LOOP  ♦  1 

PTT3T  *  2.*(  l.*. 5* (  GAMMA-1 . I *QMT**2I  ** IS AMMA/  (GAMMA-1 . ) )/ (GAMMA* 

l  3MT**2) 

PTE3T  *  PTTQT  -  OPTO  T 
PTFPTT  *  PTEO  T/PTTO  T 
OMCALC  =  GRAV*SOR  TI  GAMMA/RRRI  *QMT *1 1  5*  (GAMMA-l  .  I  *QMT  **2  )**  (-G12NQ/ZL  133 

IGMII  NOZZL  134 

OMFXIT  *  SQRT(2.*(PFSPTT**(  (1  .-GAMMA)  /GAMMA)  -1.1/  I  GAMMA-l .  1 1  NOZZL  135 

IFIFLAGAT.EO.O. IQME  X I T*l •  NOZZL  136 

QM ID  *  GRAV*  SQRTIGA  MMA/RRR ) *QME X I T* ( 1. f . 5  *  I GAMMA-l  .  I *QMEX I T**2) ** (NOZZL 13  7 


-  PFSPTTNOZZL  122 
NOZZL  123 
NOZZL 124 
NOZZL 125 
NOZZL  126 
NOZZL  127 
NOZZL 128 
NOZZL  129 
NOZZL  130 
NOZZL 131 
NOZZL  132 


1-G12GM  1) 

CON  *  QMCALC /QMID*A  TFLA  T 
AT  SAT  * 

l  A  TFL  AT*QM  T*(  (  2. ♦ I  GAMMA- 1, I *QMT  **2 )  / 1  GAMMA* l .  )  I **I-G 12GM l ) 
AESAT  *  ATSAT/PTEPTT 
AESAE  «  AESAT/AEAT 
AEAES  *  l. /AESAE 
IF  (AEAES  .LT.  l.l  GO  TO  485 
QMEE  *  .5 
KT  *  0 

FJNC2  *  AEAES-  1 1 2.  ♦ (GAMMA- 1. I *QMEE**2) / ( GAMMA*l . I) **G12  GM1/ QMEE 
SVQMFE  *  QMEE 

CALL  [  TRATE  I  QMEE*  F  UNC2  *  0.*  KTI 
IF  (ABSJFUNC21  .LE.  l.E-41  GO  TO 
IF  (XT  .GT.  25)  GO  TO  475 
IF  ( <  T  .EQ.  1)  OMEE  «  .51 
IF  (SVOMEE  -  OMEE  .GT.  O.IQMEE 
(F  (SVQMEE  -  OMEE  .LT.  O.IQMEE 
G3  T3  120 

PEPTE  «  ( l.*.5*(GAMMA-l.)*QMEE**2)**l-GAMMA/(GAMMA-l.l) 

PEPTT  *  PEPTE  •  PTEPTT 
PTTPE  «  1. /PEPTT 

IF  ( ABS(  PTPF  S  -PTTPE)  .LE.  5.E-3)  GO  TO  161 
IF  IPTTPFS  .GE.  PTTPE)  GO  TO  150 
IFIFLAGMT.NE. 1.1  GO  TO  145 
DM  T»0MT/2« 

FLAGMT«0. 

OMT  *  QMT-DMT 
G3  T3  90 

IF  (QMT  .GE.  1.)  GO  TO  163 


140 


AMAXl (OMEE, 
AMI  Nil OMEE, 


•  8*S  VQMEE ) 

•  5* I SVQMEE* 1 . ) i 


NOZZL 138 
NOZZL  139 
NOZZL  140 
NOZZL  141 
NOZZL  142 
NOZZL  143 
NOZZL  144 
NOZZL  145 
NOZZL 146 
NOZZL  147 
NOZZL 146 
NOZZL  149 
NOZZL  150 
NOZZL  151 
NOZZL  152 
NOZa  153 
NOZZL  154 
NOZZL  155 
NOZZL  156 
NOZZL  157 
NOZZL  158 
NOZZL 159 
NOZZL 160 
NOZZL  161 
NOZZL  162 
NOZZL  163 
NOZZL  164 
NOZZL 165 
NOZZL  166 
NOZZL  167 


***CQNT  INU ING 


115 


155 

161 


162 


163 


165 


170 

175 


200 


(FIFLAGMT.NF.O.I  GO  TO  155 
0MT*DMT/2. 

Fl  AGS  T*  l . 

QMT  =  QMT+DMT 
G3  T3  90 
CS  *  .995 

IFIQMOOEL  .EQ.  2.»;S  =  CS-.007 
AEATS  *  AEAT/ATSAT 

QM XX* SQ» T(2. /( GAMMA- l. 1*( ( 1. /PE PTEI *♦( (GAMHA-1 .  I /GAMMA) -1. )) 
FSAAS  =PEP  TT*A£ATS  *( l .+GAMMA*QMXX**2» 

XMOM  =  PEPTT*AEATS*GAMMA*QMXX**2APTTPFS*ATFL0N 
TIO  *  FPTATS 
XMEXIT  *  OM  XX 

CT  =ICS*F$AAS  -  PEPTT*AEATS) /FPTATS 
FLAG*  1. 

G3  T3  500 
CS  =  .997 

IFUMODEl  .EO.  2. ICS  *  CS-.007 

cm  =  SQR  T(  2.*lPFSp  TT**(  (  1.  -GAMHAI  /GAMMA  |  -|.  )/  (GAMMA-1. I) 

AT  FA  T  S  =  ((2.  ♦  (GAMMA-l. I*QMT*P21  /  (GAMMA*l. I )**G12GM1/ QMT 
PEPFS  *  1. 

FSAAS  *  ATFATS*PFSPTT*  (  1 .  ♦  GAMMA  *QMT**2  I 
AEATS  *  ATFATS/ATFLA  T 
TIO  *  FPTATS 

PTPE  *  (( GAMMA  ♦  1, 1/2. I **( GA MMA/ ( GAMMA-l .  I  I 
XMOM  *  GAMMA*PTPFS/P  TPE*AE*0MT**2 
XMEXIT  «  QMT 

CT  *  (CS*(  FSAA  S  ♦PFSPTT*(AEATS-ATFATS»I-  PFSPTT*  AEATS  1/ FPT  ATS 
FLAG*  1. 

G3  T3  5 JO 

AF AT  S* AE AT/A  T  SAT 

QME  *  1. 

KT  *  0 

FJ9C 1  *  AFATS  -( ( 2.  ♦ (GAMMA- 1 . I *QME*^2) / (3 AMMA* 1 1) ♦♦G12GK1/ QME 
SVQMEE  *  QME 

CALL  ITRATE ( CME»  FUNClt  0..  K T| 

IF  (ABSIFUNCll  .LE.  l.E-41  GO  TO  170 
(F  (XT  ,GT.  251  GO  TO  475 
IF  ( <  T  .EQ.  II  QME  *  1.01 

IF  (SVQMEE  -  QME  .GT.  O.IQME  «  AMAXKQME  ,  .5*11.  ♦  SVQMEE 1 1 
IF  (  SVQMEE  -  QME  .LT.  O.IQME  *  AMI  Nl  ( QME  ,  l.2*SVQMEEI 
G3  TO  165 

PEPTT  *  (1.  ♦  .5*  3ME**2  *( GAMMA-l. 1  I ♦♦( -GAMMA/ ( GAMMA-l . 1 1 
WSW»  *  0. 

PREi»FS  =  .63  ♦,04*AL0G(  WSWP  +  .Ol  I 
PRE>TT  =  PREPF  S/PTTPE S 
IF (  FL G220  .FQ.  l.l  PREPTT*PFCUP  T*PRE PF  S 
IF  ( *  R  EPTT  .LE.  PEPTT1G0  TCI  42 

QMX  *SQRT(2. /(GAMMA-l. l*((PRFPTT  I  **(  ( l.-GAMMAI/  GAMMA  1-1.  1 1 
QM  I*  QMX 

AREATS  =  ( (  2.  ♦QMX* *2* (GAMMA-l .11/ (S  AMMA*  l.l  I*+(G12GM1I/QMX 

CALw  XTRPIAREATS.CS.  THETA,  FIGlll 
IF  (  QMOOEL  .EQ.  2. ICS  *  CS-.007 

PECJSP  *  .!*(  1C.**(  .0332*THE  TA«-.72»  I  *  ( l 0. *1 AEAT - l . 1 1 *♦ I- .7 7 1 
PIPTT  *  PREPTT 
PETPTT  *  PEPTT 
P2PTT  =  PEPTT/PREPFS 


NUAAL  166 
NOZZL 169 
NOZZL  170 
NOZZL 171 
NOZZL  172 
NOZZL  173 
NOZZL  174 
NOZZL  175 
NOZZL 176 
NOZZL  177 
NOZZL 178 
NOZZL  179 
NOZZL 180 
NOZZL  181 
NOZZL  182 
NOZZL  183 
NOZZL 184 
NOZZL  185 
NOZZL  186 
NOZZL  187 
NOZZL 188 
NOZZL  189 
NOZZL  190 
NOZZL 191 
NOZZL  192 
NOZZL  193 
NOZZL  194 
NOZZL  195 
NOZZL 196 
NOZZL  197 
NOZZL  198 
NOZZL 199 
NOZZL  200 
NO  ZZL  201 
NOZZL  202 
NOZZL  203 
NOZZL  204 
NOZZL  205 
NOZZL  206 
NOZZL  207 
NOZZL  208 
NOZZL  209 
NO  ZZL  210 
NOZZL  211 
NO  ZZL  212 
NOZZL  213 
NOZZL  214 
NOZZL  215 
NOZZL  216 
NO  ZZL  21 7 
NOZZL  216 
NOZZL  219 
NOZZL  220 
NOZZL  221 
NOZZL  222 
NOZZL  223 
NOZZL  224 
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♦•♦CONTINUING 


218 

219 


220 


225 


475 

480 

485 

490 


PECUPT  *  PEPTT/PECUSP 
IF12ECUPT  .GT.  PETPTTI  GO  TO  219 
IF IPECUPT  .GT.  P2PTT)  GO  TO  218 
PRE>TT  *  PEPTT 
A*  FAT S  =  AEATS 
QRI  *  QME 
PFCJPT  *  P2PTT 
G3  T3  220 
!F  (PTTPFS  .IE 
FSAAS  *  P|PTT* 

01  * 

XM[W 


l. /PECUPT)  GO  TO  220 

{  l.*GAMMA*QMI **21 *  A  R  E  A  T  S 
P FSPTT *(  6.*PTTPFS*PREPTT  1 *(AEATS-AREATS)/7. 
*  PIPTT*AREATS*GAMMA*3MI  **2 *PTTPF S*ATFLOW 


TID  *  FP  TAT  S 
XMEXIT  =  QMI 

CT  *  (  C  S*FSA  A  S  -  AEATS  /PTTPFS  ♦  QD/FPTATS 
FLAG*  ). 

G3  T3  500 

PT T3 T  *  2.*l  1 .♦.5*(GAMMA-l.  ) I **(GAMMA/ (GAMMA-1.  I  1 

PTEJT  *  PTTOT  -  OPTOT 

PTFPTT  *  PTEQT/PTT3T 

PTE»F  *  PTEPTT/PtTPTT 

PT T*  E  T  =  l./PFTPTT 

QMEF*SQRT(2.*( PTTPE T  **(  ( GA  MMA-l * ) /GAMMA) -1.1/ (GAMMA-l . 1  ) 

OR  EX*  SQR  T( 2 •* ( PTEPE  **(  C GA MMA-l . I /GAMMA!  — 1 .  > /  (GAMMA-l . ) I 
AFATS  *(  (2. ♦( GAMMA- 1 • ) *QMEE **21 / (GAMMA+1. ) I **G12GM1/QMEE 
FSAAS  *  AEATS*ll.*GAMMA*QMEX**2)/PTTPET 

FPTATS  *  GAMMA*SQRT (  ( 2 • /( GA  MMA- 1 • I ) * (2 ./ C  GAMMA* 1 .  ) )** 12 .*G12GML) 
l  *(  l. -PE TP TT** ((GAMMA-l.) /GAMMA) )) 

XM3RI  *  PFTPTT*AEATS *GAMMA *QMEX**2*PTTPFS*ATFLUW 
FPTAT1  *  FPTATS 
CS  *  .995 

IF  ( GMfTOEL  .EO.  2. ICS  *  CS-.007 
CTSJBP  *(CS  *FSAA  S  -PE TPTT *AEA T SI /F PTATS 
IF(FL  G220.F0 . 1.IG0  TO  225 
FLG220  =  1. 

G3  T3  175 

01  *  PECUPT*(  U.*PRFPTT/PE;UPTI/7.I*(AEATS-AREATS) 

FSAAS 2*  PRFPTT*AREATS*(  l.*GAMMA*QMI  **2) 

FPTATS  =  GAMMA*SQRT( ( 2 . /( GA MMA-l . 1 1  * (2 . / I G AMMA*l .  I  1**12 .*G12GM1 1 
l  *(  1. -PECUPT**  ((GAMMA- l.  I /GAMMA  11) 

CALL  XTRPIAREATS.CS,  THETA,  FIGll) 

IF13R0DFL  .EO.  2. ICS  *  CS-.007 

XR3R2  =  PREPTT*AREATS*GAMMA  *OMI  **2*PTTPFS*ATFL0W 

CTCUSP  * (CS*F  SAAS2- AFATS  *PECUPT  ♦  OIJ/FPTATS 

XMOR  *  (  XM3M2-  >MUM1  l*(PTPFS-PTEPEI/(l.  /PECUPT-PT  E  PE  I  ♦  XMUMl 

TID  *  (FPTATS  -  FPTATII  *  ( PTPF S-PTE PEI /( l . /PECUPT  -  PT  EPE)*FPT  AT 

XMEXIT»(QMI-QMEXI*(P  TPF  S-PTEPEI /  (l./PECUPT-PTEPEI  *QMI 

CT  *  (CTCUSP-C  TSUBPl  *(  PTPF  S-PTE  PE  1/(1.  /  PECUPT-PT  E  PE  I  ♦  CTSUBP 

FLAG*  2. 

G3  T3  500 
WR  ITF( 6,8301 
G3  T3  490 
WR  ITE ( 6, 620) 

G3  T3  490 
WR  I TF ( 6, 610 1 
N3ZERR  *  l 
WR  IFF (6,  6001 


N0ZZL225 
NUZZL  226 
NOZZL227 
N0ZZL228 
N0ZZL229 
NOZZL  230 
N0ZZL231 
NOZZL  232 
NUZZL  233 
NOZZL  234 
NOZZL  235 
N0ZZL236 
NOZZL  237 
NOZZL  238 
NOZZL  239 
NOZZL  240 
NOZZL  241 
NOZZL  242 
NOZZL  243 
NOZZL  244 
NOZZL  245 
NOZZL  246 
NOZZL  247 
NOZZL  248 
NOZZL  249 
N0ZZL250 
N0ZZL251 
NOZZL  252 
N0ZZL253 
NOZZL  254 
NOZZL  255 
NOZZL  256 
NOZZL  257 
NOZZL  258 
NOZZL  259 
NOZZL  260 
NOZZL  261 
NOZZL 262 
NOZZL  263 
NOZZL  264 
NOZZL  265 
NOZZL  266 
NOZZL 267 
NOZZL  268 
NOZZL  269 
1N0ZZL  270 
NOZZL  271 
NOZZL  272 
NOZZL  273 
NOZZL  274 
NOZZL  275 
NOZZL  276 
NOZZL  277 
NOZZL  278 
NOZZL  279 
NOZZL  280 
NOZZL  281 


♦••CONTINUING 
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500  RETURN  N0ZZL282 

600  F3RMATUH1#* - ERROR  IN  NOZZLE - *)  N0ZZL283 

610  F3RAATIIH  ,*COMPUTED  NOZZLE  DIVERGENCE  AREA  LESS  THAN  1.*)  N0ZZL284 

620  F3R4ATIIH  ,*NOZZLE  THROAT  AREA  ITERATION  FAILED*)  N0ZZL285 

630  F3R1A  TC 1H  « *NOZZLE  EXIT  MASH  NUMBER  ITERATION  FAILED*)  N0ZZL286 

END  NOZZL287 


***  END 
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o  o  o  <_> 


•♦•BEGIN 


SUBROUTINE  XTRPI X»V»Z*C V) 

CURVE  INTERPOLATION  ANO  EXTRAPOLATION 
SAME  EXCEPT  TRAP  ADDED  TO  CALL  EXIT  WHEN  A  CURVE  IS  MISSING 
QUADRATIC  FIT  ON  BIVARIANT  INTERPOLATION 
MINIMUM  STORAGE  VERSION,  X  MUST  INCREASE 
OIMENS  ION  CVI  ICI 
AX-X 
AZ*Z 

CV I  3 1*0*0 

icv*cvi  n+o.i 

IF (  ICV.EQ.5  I  ICV*  4 

IF  (  ICV.GT.O  .ANO.  ICV.LT.5  I  GO  TO  901 
WRITE  I  6, 900)  ICV 

900  F3RWATI45H  CURVE  MISSING  OR  WRONG  IN  A  CALL  TO  XTRP,  10  ,14) 
RELl lM*-5.0 

HT L  I  HP  *  SQR  T I R  E  LL  l  M ) 

FFOEG*CVI  10000C0) 

CALL  EXIT 

901  CONTINUE 

GD  T3  (1000, ?0C0,30O0, 4000) , ICV 
C  UNIVARIATE  LINEAR 

1000  N*  CVI 4)  +  4.0 

IF  I  A  X-C  VI  5)1  1080,  1050,101  7 
1017  03  1025  1*7, N, 2 

IF  I A  X-C  VII))  1040,  1040,102  5 
1025  C3NTINUE 

G3  T3  1060 
C  C3MPUTE 

1040  LRET*  3 

G3  T3  3900 
1050  A*CVI 61 
1045  Y*  A 

GD  T3  9999 
C  EXTRAPOLATION 

1060  CV I  3 ) *  1 . 0 
I*  N-  1 

IF  I  CVI  2)1  1040.9999,1040 

1080  CVI 3)*  1.0 
1*7 

IF  (  CVI  2) )  1040,9999,1040 

C  UNIVARIATE  QUADRATIC 

2000  N*CVI  41+4.0 

IF  I  C  V I  5  )- A  X )  2010,  1050,2200 
2010  03  2015  I*  9«N*2 

IF  ICVID-AX)  2015,  2020,202  0 
2015  C3NTINUE 

G3  T3  2225 

2020  IF  ICVI  I-2I-CVII-4)  I  2025,2250,2025 
2025  LRET*  4 

G3  T3  5000 
C  EXTRAPOLATION 

2200  CV  131*1.0 
1*9 

IF  I  CVI 2 ) )  2025,9999,2025 


XTRP  000 
XTRP  001 
XTRP  002 
XTRP  003 
XTRP  004 
XTRP  005 
XTRP  006 
XTRP  007 
XTRP  008 
XTRP  009 
XTRP  010 
XTRP  Oil 
XTRP  012 
XTRP  013 
XTRP  014 
XTRP  015 
XTRP  016 
XTRP  017 
XTRP  018 
XTRP  019 
XTRP  02 0 
XT PP  021 
XTRP  022 
XTRP  023 
XTRP  024 
XTRP  025 
XTRP  026 
XTRP  027 
XTRP  028 
XTRP  029 
XTRP  030 
XTRP  031 
XTRP  032 
XTRP  033 
XTRP  034 
XTRP  035 
XTRP  036 
XTRP  037 
XTRP  038 
XTRP  039 
XTRP  040 
XTRP  041 
XTRP  042 
XTRP  043 
XTRP  044 
XTRP  045 
XTRP  046 
XTRP  047 
XTRP  048 
XTRP  049 
XTRP  050 
XTRP  051 
XTRP  052 
XTRP  053 
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2225  CVI3>*1.0 
I*N-  1 

IF  f  C V (  2 1 1  2025*999  9*2025 

2250  I* 1*2 

G3  TD  2025 

C  BIVARIATE  LINEAR 

3000  K000F X-C VI 4 1 
3035  \f  I  CV(  7  l-AZ  )  2040*3040,3200 
30'G  NZ*CV(  51-1.0 

03  3045  J*1,NZ 
LCZ*7*J*K000FX 

IF  I  CVILCZ  l-AZ  )  3045,3050,3050 
3045  CD  NT INUF 

G3  T3  3400 
3050  NX=CVILCZ- 1 1 
KX  1*LCZ* l 
JX*KXl*NX-l 

3100  IF  (CVlKXl)-AX)  3105,3105,3352 
3105  03  3110  I*KXl,JX,2 

IF  (CVIII-AXI  2110,3115,3115 
3110  CONTINUE 
L3  ET*  1 
G3  T3  3375 
3115  LR  ET*  2 

G3  TO  3900 
3120  Y2*  A 

IF  I  AZ.NF. CVILCZ)  1  GO  TO  8801 

Y  *  Y2 

G3  TO  9999 
8801  LCZ'LCZ-KOOOFX 
KX1*LCZ*1 

IF  (CVIKXII-AX)  3125,3125,3353 
3125  NX*CVILCZ-l> 

J  X*K  X 1  *NX-  1 

DO  3130  I*KXl,JX,2 

IF  (CVIII-AXI  2130,  3135,3135 
3130  CONTINUE 
LR  FT*  2 
GO  TO  3375 
3135  LR FT* l 

GO  TO  3900 
3085  Y1*A 

IF!  AZ.NE. CVILCZ)  )  GO  To  3950 

Y  *  Yl 

GO  TO  9999 
C  EXTRAPOLATION 

3200  CVI3)*1.0 

LCZ*  7+K00QF  X 

IF  I CV( 2 ) )  9999,9999,3050 

3352  LR ET* 1 

GO  TO  3355 

3353  L R  ET*  2 
3355  CV  131*1.0 

IF  I C V ( 2 ) I  3360,9999,3360 

3360  I* KX 1 *2 

GO  TO  13115, 3135), LRFT 
3375  CV (31*1.0 


XT RP  054 
XTKP  055 
XT  RP  056 
XTRP  057 
XT  RP  058 
XTRP  059 
XTRP  060 
XTRP  061 
XTRP  062 
XTRP  063 
XTRP  064 
XTRP  065 
XTRP  066 
XTRP  067 
XTRP  068 
XTRP  069 
XTRP  070 
XTRP  071 
XTRP  072 
XTRP  073 
XTRP  074 
XTRP  075 
XTRP  076 
XTRP  077 
XTRP  078 
XTRP  079 
XTRP  080 
XTRP  081 
XTRP  082 
XTRP  083 
XTRP  084 
XTRP  085 
XTRP  086 
XTRP  087 
XTPP  088 
XTRP  089 
XTRP  090 
XTRP  091 
XTRP  092 
XTRP  093 
XTRP  094 
XTRP  095 
XTRP  096 
XTRP  097 
XTRP  098 
XTRP  099 
XTRP  100 
XTRP  101 
XTRP  102 
XTRP  103 
XTRP  104 
XTRP  105 
XTRP  106 
XTRP  107 
XTRP  108 
XTRP  109 
XTRP  110 
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IF  I Cvl 2) 1  3380*9999*3380 

XTRP 

111 

3380 

I«JX-1 

XTRP 

112 

G3  T 3  13115, 3135), LRET 

XTRP 

113 

3400 

CV (  3  1  *  1 .0 

XTRP 

114 

LCZ*7*NZ*K000F> 

XTRP 

115 

IF  ( C V ( 2  ) )  9999,9999,3050 

XTRP 

116 

C 

C3M3UTE 

XTRP 

117 

3900 

A*  IAX-CVC  1-21  )*fCVf  l  +  l)-CVII-ll  l/ICVII  l-CVII-2)  >*CVfl-i) 

XTRP 

118 

r.3  T 3  I  3CE5, 312C, 1045)  , LRET 

XTRP 

119 

3950 

LZ  IM  =  LCZ  ♦  K0C0FX 

XTRP 

120 

Y*  (  A Z-C VI  LCZ  1  )♦(  Y2-Y1)/(CVILZI  NI-CVILCZ) »  *Yl 

XTRP 

121 

GO  T3  9999 

XTRP 

122 

C 

BI VAR  I  ATE  QUADRATIC 

XTRP 

123 

4000 

K000F X=C V(  4 ) 

XTRP 

124 

4015 

IF  I  C  VC  7 l-AZ  1  4020,  4020,4100 

XTRP 

125 

4020 

NZ*CV( 51—1.0 

XTRP 

126 

03  4025  J*  2  *  NZ 

XTRP 

127 

LCZ*  7*J*K000F  X 

XTRP 

128 

IF  CCV(LCZ)-AZ)  4025,4030,4030 

XTRP 

129 

4025 

CONTINUE 

XTRP 

130 

G3  T3  4200 

XTRP 

131 

o 

pr 

o 

LCZ41K  *  LCZ  -  1*K00GFX 

XTRP 

132 

LCZ42K  *  LCZ  -  2^KOOOF  X 

XTRP 

133 

IF  (  CVCLCZN IK >  -  CVC LCZM2K)  1  4040,4035,4040 

XTRP 

134 

4035 

LCZ  *  LCZ  ♦  K000FX 

XTRP 

135 

4040 

NE  *  CVILCZ-1) 

XTRP 

136 

KXl*LCZ*l 

XTRP 

137 

KX3*LCZ*5 

XTRP 

138 

JX*L  C  Z  +NE- 1 

XTRP 

139 

Z3-CVCLCZI 

XTRP 

140 

4300 

IF  (CV(KXl)-AX)  4310,4310,4450 

XTRP 

141 

4310 

DD  4320  I  =  K  >3,  JX,  2 

XTRP 

142 

IF  (CVtll-AXl  4320,4325,4325 

XTRP 

143 

4320 

CONT INUE 

XTRP 

144 

LRET*  1 

XTRP 

145 

G3  T  3  4500 

XTRP 

146 

4325 

IF  I  CVI  I-2I-CVI 1-4)  I  4330,4630,4330 

XTRP 

147 

4330 

LR  ET=  2 

XTRP 

148 

G3  T3  5000 

XTRP 

149 

4340 

Y3*  A 

XTRP 

150 

IF  C  Z3.NE.AZ  »  GO  TO  8802 

XTRP 

151 

Y  *  Y3 

XTRP 

152 

G3  T3  9999 

XTRP 

153 

8802 

LCZ*LCZ-KOOQFX 

XTRP 

154 

KXl=K  Xl-KOOOF  X 

XTRP 

155 

KX3*KX3-K000F  X 

XTRP 

156 

NE*CV I LCZ- 1 1 

XTRP 

157 

Z2*CVCLCZ  1 

XTRP 

158 

IF  CCVlKXi)-AXI  4350,4350,4460 

XTRP 

159 

4350 

JX*LCZ*NE-1 

XTRP 

160 

03  4360  I*K  >3,  JX,  2 

XTRP 

161 

IF  ( C VI I l-A  X  )  4360,4365,4365 

XTRP 

162 

4360 

LRET*  2 

XTRP 

163 

G3  T3  4500 

XTRP 

164 

4365 

IF  ICVC I-2I-CVII-4I)  4370,4640,4370 

XTRP 

165 

4370 

LRET*  3 

XTRP 

166 

GO  TO  5000 

XTRP 

167 
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4375 

Y2*A 

XTRP 

168 

IF  (  Z2.NE.AZ  1  GO  TO  8803 

XTRP 

169 

Y  *  Y2 

XTRP 

170 

G3  T3  9999 

XTRP 

171 

9803 

LCZ*LCZ-K000F  X 

XTRP 

172 

K  X  i*K  X 1-K000F  X 

XTRP 

173 

KX3*K  X3-K000F  X 

XTRP 

174 

NE=CV ( LCZ- 1 1 

XTRP 

175 

Zl*CV(LCZ) 

XTRP 

176 

IF  I  CVIK  XU-A  X  )  4380,4380.4470 

XTRP 

177 

4380 

JX=LCZ  +NF- 1 

XTRP 

178 

03  4385  I  *KX3«  J  X«2 

XTRP 

179 

IF  (  C  V  ( I  1 — A  X 1  4385,4390,4390 

XTRP 

180 

4385 

C3NT  INUE 

XTRP 

181 

LR  ET*  3 

XTRP 

182 

G3  T3  4500 

XTRP 

183 

4390 

IF  (CVI  I-2I-CVI 1-4)  1  4395,4650,4395 

XTRP 

184 

4395 

LRET* 1 

XTRP 

185 

GO  TO  5000 

XTRP 

186 

4099 

Yl*  A 

XTRP 

187 

IF(  Z  l.NE.AZ  I  GO  TO  5500 

XTRP 

188 

Y  *  Yl 

XTRP 

189 

G3  TO  9999 

XTRP 

190 

C 

EXTRAPOLATION 

XTRP 

191 

4100 

CV  (  3 1  *  1.0 

XTRP 

192 

LCZ*  7* 2*K  000F  X 

XTRP 

193 

IFCV(2II  9999,9999,4030 

XTRP 

194 

4200 

CV ( 3 1*  1.0 

XTRP 

195 

LCZ*  7*NZ*K  OOOF  X 

XTRP 

196 

IF  I  CVI 2 1 )  9999,9999,4030 

XTRP 

197 

4450 

LRET*  l 

XTRP 

198 

G3  TO  44  80 

XTRP 

199 

4460 

LR  ET*  2 

XTRP 

200 

GO  TO  4480 

XTRP 

201 

4470 

LRET*  3 

XTRP 

2  02 

4480 

CV  I  3 1*  1 .0 

XTRP 

203 

!*KX3 

XTRP 

204 

IFICVI21I  4490,9999,4490 

XTRP 

205 

4490 

GOTO  I  4325,4365,4390) , LRET 

XTRP 

206 

4500 

CV  I  3 1  *  L  •  0 

XTRP 

207 

!*JX 

XTRP 

208 

IF  (CVI2J)  4510,9999,4510 

XTRP 

209 

4510 

GO  TO  I  4325,4365,43901 , LRET 

XTRP 

210 

4630 

I*  1*2 

XTRP 

211 

GO  TO  4330 

XTRP 

212 

4640 

I*  U2 

XTRP 

213 

GO  TO  4370 

XTRP 

214 

4650 

I*  1*2 

XTRP 

215 

GO  TO  4395 

XTRP 

216 

C 

C3MPUTE 

XTRP 

217 

o 

o 

o 

Ift 

CONTINUE 

XTRP 

218 

A*CV( 1-3 )♦( AX-CVI I-4))*(ICV(I-l)-CV(I-3))/(CV(I 

-2I-CVI 1-4) )*IAX-CVXTRP 

219 

Hi-21 1 /( cvi  n-cvi  i-4i)*(icvimi-cvci-i)i/icviii-cvu-2i  i-icvu-i  xtrp  220 

2)-CV(  I-3II/1CVII-2I-CVU-4)  H)  XTRP  221 

63  T3  (  4099,  4340,43  75, 1045)  , LRET  XTRP  222 

5500  IF (  CVI  1). ME. 5.0  I  GO  TO  5502  XTRP  223 

IF(  AZ.LT.Z2  I  GO  TO  5501  XTRP  224 
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Zl  *  12 

XT  RP 

225 

12  *  Z  3 

XT  RP 

22  6 

Yl  »  Y 2 

XTRP 

227 

Y2  *  Y3 

XTRP 

228 

5501 

Y  «  (AZ-Z1J  ♦  (  Y2-Y 1 )  /(  Z2-Z  1 )  ♦  Yl 

XTRP 

229 

RETJRN 

XTRP 

230 

5502 

Y»YIMAZ-Z1I*(  ( Y2-Y1  )/(Z2-Zl)MAZ-Z2l/(Z3-Zll* 

XTRP 

231 

l  (  (Y3-Y2I/1  Z3-Z2I-J  Y2-YI)  /<  Z2-Z1  III 

XTRP 

232 

9999 

RETURN 

XTRP 

233 

END 

XTRP 

234 
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